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THIS MONTH'S MAGAZINE 

The magazine is again packed with articles and programs. I would particularly 
draw your attention to the three excellent games and to the article and program on 
three dimensional graphics (3D Rotation), which again illustrates the quality of the 
computer graphics that can be achieved with the Electron. There are also further 
articles in the two series on Electron Graphics and Writing a Games Program and many 
more interesting and useful items in this issue. 


ADD-ONS FOR THE ELECTRON 

In the first issue of ELBUG we reported that SIR Computers of Cardiff were 
planning add-on units for the Electron. These are now promised for early this year, 
and the first product is likely to be a ROM expansion board at £40 + VAT. This will 


then be followed by a unit with printer and joystick connections, with further 
add-on units to follow. 


Another company, Solidisk Technology Ltd., is also planning a General Purpose 
Interface (GPI), which will provide a printer port, a user port, joystick port and 
additional ROM sockets for the Electron. The cost is likely to be from £26 upwards 
depending on the options included. A prototype unit was on demonstration at the 
Micro User Show in December. Enquiries or comments should be sent to Solidisk 
Technology Ltd. at 17 Sweyne Avenue, Southend-On-Sea, Essex SS2 5JJ. 


Acorn are themselves planning a sophisticated multifunction interface for the 
Electron to be released later this year, but no details are available as yet. 


RETURN OF THE DIAMOND 
During pasting (the process of actually assembling the original material for our 


printers) part of a line was accidentally omitted for this program. The full and 
correct line is as follows: 


500 DATA a mean looking gremlin,GREMLIN, 4 


We are sorry if this stopped you from running the program. In this issue of ELBUG, 
as promised, we have included a map of the various locations referred to in this 
adventure game. 


YOUR LETTERS 

This month we have been able to publish some of the first letters we have 
received from readers of ELBUG. We hope to make POSTBAG a regular feature of the 
magazine and look forward to hearing from more of you in the future. If you do write 
to us, then please make sure you address your letter to our editorial address. 


NEXT MONTH'S ISSUE OF ELBUG 
This is just to remind you that this issue of ELBUG covers both January and 
February, and that the next issue of the magazine will be the March issue. 


Mike Williams 
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MARS LANDER 
by Alan Webster 


Mars Lander is a version of the 
popular moon lander game in which the 
player attempts to navigate his space 
craft through a mass of meteors to land 
it softly on the landing pad. You 
control the horizontal and vertical 
speed of the craft. The game runs in 
mode 5 and makes good uses of both 
colour and sound. 


The player can choose the level of 
difficulty for the game - the more 
difficult the game the more sensitive 
the controls and the rougher the 
terrain (ranging from quite smooth to 
very rough). You have 15 seconds to 
land the craft before your fuel runs 
out. 


The controls are given in the 
program, and for those of you who 
find the game too easy (in excess 

of 2888 points) you might like to 
change the gravity factor by 
altering line 200 to: 


206 NS=N%-(G3/1 .95-(1/Y3/19 
)) IF N&>80 THEN N%=80 


£2 B-aUAN ANFLS 


Ed 
GP ip 9 SYS 


i 
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This program is adapted from a 
version for the BBC_ micro first 
published in BEEBUG Vol.2 No.4. 


1@ REM PROGRAM MARS LANDER 

2@ REM AUTHOR ALAN WEBSTER 

386 REM VERSION E1.@ 

40 REM ELBUG JAN/FEB 1984 

58 REM PROGRAM SUBJECT TO COPYRIGHT 

66: 

7@ ON ERROR GOTO 758 

88 PROCchars: PROCarrays :MODE4 

96 PRINTTAB(14,2)"Mars Lander";TAB(1 
2,3)"by Alan Webster" 

100 PRINTTAB(5,19)"Difficulty. 1-8 (1 
=Easy) ?":G%=GET: IFG%<49 OR G$>56 GOTO 
166 

11@ G%=G%-47:dead=FALSE: SC$=8 

120 L%=G3*6: PRINTTAB(13,19)"Z - Left" 
7TAB(13,20)"X - Right";TAB(8,21) "RETURN 

- Thrust";TAB(9,23)"Press any key":i=G 
ET 

138 MODE5:A2%=1 90: VDU5: REPEAT: CLS: PRO 
Cstars: PROCmeteors : X$=RND (90) : Y$=1 000: 
M%=@:NS=1 : landed=FALSE: PROCscene 

140 TIME=@: REPEAT: OX$=X%: OY3=Y3 

15@ IF INKEY-98 IF X%>32 M%=M%-G% 

16@ IF INKEY-67 IF X%<1219 M$=M%+G3 

176 X%=X+ (M8/2) :IF X$<32 X$=32 

188 IF X%>121@ X=1218 

19@ MS=M$+ (SGN (M3) /1@): IF INKEY-74 N3 
=NB+G$ 

268 N$=N%-(G%/1G) : IF N&>80 NS=80 

210 Y8=Y3-8+N3: IF OX3=X% IF OY$=Y% GO 
TO 230 

22@ MOVE OX%,OY%:GCOLG,@:VDU224:MOVE 
X%,Y%:GCOLG, 3: VDU224 

238 RS=POINT (X$+55, Y$-31) :R1$=POINT (X 
%$,Y%-31) :SOUND@,-19,4,1:IF R%=1 dead=TR 
UE 

oe IF R1%=1 dead=TRUE 
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256 IF R%=2 AND R1%=2 landed=TRUE 

260 IF TIME>15@0 dead=TRUE 

276 UNTIL landed OR dead: IF N%<1 dead 
=TRUE 

286: 

290 G% +1:IF dead GOTO318 

308 SC%=SC%+ (1568-TIME) :FORSOS=1TO10 
:SOUND1,-14, 206, 1:SOUND1,-14,1@00,1:NEXT 

316 L%=L3+¢ ead : SC$=SC-1 00 
OCexp1 : TIME= > UNTIL TIME>150:*FX 
15 

326 MODE6: PRINTTAB(5,14)"Your Score w 
as :";SC%:TIME=0:REPEAT UNTIL TIME>5@@: 
RUN 

330: 

348 DEFPROCscene 

35@ P%$=RND(12@) *8: FORA] %=@0TO! 280STEP8 
:IFAIS=P%$ S$=A2%3 

360 IF Al$>P% IF Al%<(P%+120) PROCpad 
: GOTO39¢0 

376 GCOL@,1:MOVE A1%,@:DRAW Al1%,A2%:A 
2%=A2%+ (RND (L$) -(L%/2) ) : IF A2$<20A2%=2 

380 IFA2%>440 A2%=4008 

398 NEXT 

480 ENDPROC 

416: 

428 DEFPROCpad 

430 GCOLG@, 2: PLOT69,A1%,S%:PLOT69,A1%, 
S%+4:GCOLG,1:MOVE Al%,%:DRAW A1%,S%-4:G 
COLG,@:MOVE A1l%,S%+8:DRAW Al1%,S%+72 

440 ENDPROC 

456: 

469 DEFPROCchars 

478 VDU23,224,0,24,60,255, 192,66,66, 1 
29: VDU23, 225, 20,126,124, 126,254,124, 28, 
48 


ad 


488 ENDPROC 
496: 
506 DEFPROCarrays 


510 ENVELOPE 1,3,0,0,0,9,255,0,126,0, 
G,-126,126,126 
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520 DIM 2% 

530 FOR 21% 
$(Z13)>6 Q8(Z 

540 Q1%(Z1 
%(Z18) =Q1%(Z1 

55¢ N 

568 E 


576: 

580 DEFPROCexp] 

598 GCOLO,@ 
1T08:2 


EX$,Y%$:VDU224:FOR Z6%= 
2 6%) 


600 FOR P% 114:FOR J% 
PLOT69, Z% (J%) ,Z2% (JB) 22% 
(J%) *4) 


619 GCOLG, 1:22% (J%) =Z2% (J%) + (Q18 (J% 
2) :GCOLG@, 7: PLOT69, Z% (J%) , 22% (JS) :NEXT:S 
OUND @,1,6,4:NEXTP% 


62@ ENDPROC 
630: 


648 DEFPROCmeteors 

658 GCOLG,1:FOR W$=1TO(L%/2.5)+RND(5) 
:MOVE RND(10@@) , RND (609) +200: VDU225: NEX 

668 ENDPROC 

678: 

688 DEFPROCstars 

698 COLOUR2 

708 FOR S%=1 TO RND(5@) +50 

718 PLOT69, RND(120@) +49, RND(1000) +24 

726 NEXT 

736 ENDPROC 

748: 

75@ ON ERROR OFF 

766 MODE6: IF ERR=17 END 

776 REPORT: PRINT “ at line ";ERL 

786 END 
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THE ELECTRON’S EDGE CONNECTOR 
by Philip Le Grand 


This short article is meant as a quick introduction to the 
connector at the back of the Electron, and is intended for the more 
technically minded Electron users amongst our readers. 


As you can see, the edge connector TRACK SIDE COMPONENT SIDE 
at tne rear of the Electron, has gold T8V A.C. input -F 18V A.Cy return 
plated pins on both sides of the AC. eer ee eRe 
printed circuit board. The functions of ov ov 
each of these pins is given in the +5V +5V 
diagram opposite, with a brief T6MHz clock ae rie 
explanation of each in the following Fart ARS 
table. Note that the numbers associated R/NW —F NIRQ 
with each pin are in accordance with be <u 
Acorn's numbering convention. Pin 1 is D2 + D3 
on the component side of the board, at DO D1 
the far left hand side, as you look at - NC. ROY 
the back of the Electron, with the 

; : : A14 - A15 
keyboard facing upwards. Pin 2 is Al2 + A13 
directly below pin 1, pin 3 is next to A10 + All 
pin 1, and pin 4 is below pin 3 etc. fe re 
Therefore, all of the odd numbered AG A3 
connections are on the component side, A6 AS 
and all of the even numbered « “a 
connections are underneath the machine. +5V +5V 


CONNECTOR FUNCTION EXPLANATION 
1,2,3,4 18V A.C.INPUT | Power supply connection for peripherals to power 
and RETURN the Electron. 
5-18,47-58 -5V,0V & +5V Power supplies from the Electron's internal 
power supply. 
iB SOUND OUTPUT A direct output of the sound, unamplified. 
16MHz CLOCK Master clock supply for the video display. 
Main CPU timing clock. 
Connection to CPU. 
Reset line to CPU (active low). 
Non-maskable interrupt (active low). 
Interrupt request (active low). 
Read (active high), Write (active low). 
Data bus. 
CPU READY line (goes high when data and address 
lines are stable). 
No connection. 
Polarising slot. 
Address bus. 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


* COMMANDS _IN BASIC 

When typing * commands such as *FX or *MOTOR into Basic programs the * command 
must be the last command on the line. This is because further colons are ignored and 
the whole of the rest of the line is given to the operating system once the '*' 
character has been recognised. e 
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3D ROTATION 


by James Hastings 


This is an extremely interesting program which enables shapes to 
be drawn in three dimensions and then viewed from any angle. A short 
sequence showing output from this program was recently included in 
an edition of the BBC TV programme "Tomorrow's World" as an example 
of the use of computers in 3D graphics. 


This program enables a wire frame 
shape to be displayed on the screen and 
then manipulated in various ways from 
the keyboard. The object to be drawn is 
defined in the program as a_ series of 
data statements, which are easily set 
up, aS they are the xX, Y an vA 
co-ordinates of the "corners" of the 
object. Once these are entered the 
program is run, and displays a front 
view using mode 4 graphics. Tne object 
may then be rotated about any axis, or 
viewed from nearer or further simply by 
pressing one of 12 keys. These also 
allow the object to be moved left, 
right, up and down on the screen. The 
program will only draw and transform 


objects made up from straight lines, This provides the ability to view 

but there is no apparent limit to the the object from any point, including 

complexity of the "wire-frame" objects actually from within the object itself, 

generated. by increasing its size sufficiently. 

The program always draws all lines of 

HOW TO USE THE PROGRAM. the object concerned as if it were a 
Tne reason that the main program wire frame. 


starts from line 1088 is to allow the 
earlier lines to be used for the data 
statements to define objects that you 
may develop later. The data statements 
on lines 186 to 188 define a 3D cube. 
Pictures of this are included with this 
program. 


Run the program. You should see a 
cube, viewed from one side. The cube 
may now be moved using the keys 
described in the table below. 


Cursor keys LEFT and RIGHT rotate 
around the Y axis. 
Cursor keys UP and DOWN rotate 
around the X axis. 
"RETURN' and the ':' key (left of sf A pic ok tie 
RETURN) rotate around the Z axis. CREATING A_NEW 2D OBJECT _ 
DELETE and COPY reduce and increase Designing your own shapes is very 
the size of the object. easy. To start with let us consider how 
Keys 'Z' and 'X' move left and to draw a simple square in 2 
right. dimensions. (The program will equally 
Keys 'Q' and 'A' move up and down. well draw and display 2D objects in a 
3D field of vision). 

» 


ELBUG Jan/Feb 1984 Volume-1 Issue-3 


8 


Take a piece o 
is best) and draw a 1 
middle. This will represent the X and Y 
axes upon which we will sketch the 
object, in this case a square. Now draw 
a large square with the cross at its 
centre. Number the corners of the 
square anti-clockwise, from 1 to 4, 
starting with the top right hand corner 
as 1. 


f paper (graph paper 
arge cross in the 


We now need to work out the X, 
Z co-ordinates of the square. 
assume for convenience that the 
of each side of the square is 
units. 


a 


2 (-500,589) 1(588, 580) 


3(-500,-506) 4(500,-500) 

This makes the X and Y co-ordinates 
of point 1... 504,500. As the object is 
flat (we are only drawing it in 2D), 
the Z co-ordinate will be @. 


Thus the co-ordinates of point 1 are 
566,500,0 (co-ordinates are always 
given in the order X, Y, Z). Similarly 
those of 

point 2 are -500,506,90 

Point 3's are -590,-500,0 

Point 4's are 506,-500,9 


We can now compose the data 
statements for the program. These will 
be inserted into the program on any 
line numbers up to 999 and will replace 
those in the program listed below on 
lines up to 999. The program requires 
information in the following format. 


1) Number of "corners", followed by the 
X, Y and Z co-ordinate of each 
"corner". 


2) Number of lines to be drawn, 
followed by the "corner numbers" 
which they should join. 


ELBUG 
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This may sound complicated but is in 
fact very straightforward. The number 
of corners in our square is obviously 4 
and we have worked out the co-ordinates 
already, so the first data statement 

ead: 
ATA 4,506,509,9,-500,500,0, 
-586,-580,0,500,-588,90 


The number of lines is also 4. If 
you look at your sketch you will see 
that we have numbered the corners from 
1 to 4. The lines of the square go from 
point 1 to point 2, point 2 to point 3, 
point 3 to point 4, and point 4 to 
point 1. This is all that is required 
for the second data statement, which we 
can now write: 

138 DATA 4,1,2,2,3, 


Ww 


14,4,1 


That's all there is to it. These two 
lines, 1208 and 138, should replace the 
data statements in the program listed 
below on lines 120, 138 and 170. The 
actual line numbers are irrelevant as 
long as they are below 1000. Type them 
in and run the program, remembering to 
check that previous data statements, 
such as line 178 have been removed. 


HOW TO DRAW YOUR OWN 3D OBJECT. 

To do this we follow exactly the 
same process as above but now using an 
object with depth, for example a 
pyramid with a square base. As this is 
drawn as an extension to a square, we 
will be able to use some of the above 
calculated co-ordinates. 


Take the sketch of the square made 
earlier and consider the Z axis. This 
is at right angles to the other two 
axes and can be thought of as extending 
from above the paper, through the 
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FN Nh a a a e  D 


centre of the cross, to below the piece 
of paper. When calculating 3D 
co-ordinates you have the choice of 
either imagining the points. not 
actually on the paper, or attempting to 
sketch them using perspective. 


7 SS (588,508,0) 
_~ (500,500,017 ~£508, 508,6) 


~) 
i 


~ 
(588,-588,2) 


To continue with the pyramid, 
consider its apex, which we will 
define, for convenience, at a height of 
586 units. This places it exactly over 
the intersection of the X and Y axes at 
a height of 588. Consequently its 
co-ordinates will be 9,0,500. If we 
number the apex as "corner" 5, you can 
see that it will require lines to be 
drawn joining it to "corners" 1,2,3 and 
4. We now have an object with 5 
"corners" and 8 lines. The data 
statements can therefore be represented 
as follows: 


120 DATA 5 

-560,-5 
130 DATA 8, 
5 275559 


, 900 ,508,8,-508,500 
69,9,500,-500,9,9, en 
1,2,2,3,3,474,1,5,1, 

5,4 

Type in these lines instead of all 


other lines up to 998 and run the 
program. 


If this doesn't make sense to you, 
compare them with the data statements 
calculated above for the square. Refer 
also to the diagram of the pyramid 
above, to see now the axes would pass 
through it. The co-ordinates of the 
"corners" are also indicated. 


FORMULA 
For tnose people interested in the 
calculations used to perform the 
rotation, James has given the following 
formula. To calculate the new X and Y 
co-ordinates following a rotation about 
the Z axis by an angle of psi: 
Xnew=Xold*Cos (psi) -Yold*Sin (psi) 
Ynew=Yold*Cos (psi) +Xold*Sin(psi) 
and so on for the other axes. 


MODIFYING THE PROGRAM 


Tne program runs in mode 4, but you 
can easily change line 10618 so that it 
runs in mode 1. The drawings will still 
be the same size, but to the higher 
resolution that mode 1 provides. 
Unfortunately, the Electron is slower 
in this mode, and transformations of 
any object will take longer. You can 
also amend the program so that the 
drawings are in white against a blue 
background by adding the line: 

1815 VDU19,9,4,9,8,9 
Tnis gives a most attractive display. 

18 REM Program 3-D Rotation 

20 REM Version E1.@ 

3@ REM Author J.Hastings 

49 REM ELBUG Jan/Feb '84 

5@ REM Program subject to copyright 

6d : 

190 REM Points data 

16: 

26 DATA 8,-500,560,560,540,500,500,5 
00,-500,580,-500,-508, 500 

130 DATA -566,506,-560,500,506,-560,5 
08,- “S08 ¢— 560,-5060,-500,-506 

46 

158 REM Lines data 

69 

76 DATA 12,1,2,2,3,374¢4017¢17572,6,3 
714 ¢87 506, 6,7,7/8, 8,5 

88 : 

1660 ON ERROR GOTO 1220 

1810 MODE 4 

1628 hor3=648 

1630 vertS=512 

1348 VDU 29,hor$;vert%; :VDU23,1 
8; 

10950 *FX 4,1 

1660 PROCpoints » 


7 0;6;0; 
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1878 PROCLines 

1088 distance$=5000 

1698 diststep3=50G 

1196 anglestep=PI/16 

111@ movestep=32 

1126 hmove$=0 

1138 vmovet=8 

114@ REPEAT 

115@ PROC2D 

116@ PROCdraw 

117@ PROCupdate 

1186 PROCrotate 

1198 UNTIL FALSE 

1268 END 

1216 : 

1226 REM Error trap 

1238 MODE6 

124@ IF ERR<>17 REPORT: PRINT " at lin 
e "; ERL 

1256 *FX 4,0 

1260 END 

1276 : 

1286 DEF PROCpoints 

1298 REM Dimension point arrays and re 
ad in points data 

1306 READ points% 

1318 DIM X(points$) ,Y(points%) ,2(point 
s%) ,X2D (points%) , Y2D(points$) 

1328 FOR count%=1 TO points’ 

1338 READ X(count$) ,Y(count$) ,Z (count 
) 

1346 NEXT count’ 

1358 ENDPROC 

1366 : 

1378 DEF PROClines 

1388 REM Dimension line arrays and rea 
d in lines data 

1398 READ lines% 

1486 DIM start%(lines%) ,end%(lines3) 
1419 FOR count$=1 TO lines% 

1429 READ start%(count$) ,end% (count$) 
1438 NEXT count’ 

1448 ENDPROC 

1458 : 

1469 DEF PROC2D 

1478 REM Convert to 2-D 

1488 FOR count%=1 TO points% 

1498 X2D(count$) =X (count$) *2580/(dista 
nce%-Z (count) ) 

1588 Y2D(count$) =¥ (count) *250G/ (dista 
nce$-Z (count$) ) 

1518 NEXT count’ 

1528 ENDPROC 

1530 : 

1548 DEF PROCdraw 

1558 CLS 

1568 FOR count%=1 TO lines% 

1570 MOVE X2D(start%(count$) ) , Y2D(star 
t% (count$) ) 

1588 DRAW X2D(end% (count?) ) , Y2D (end%(c 
ount$) ) 
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1598 NEXT count% 

1686 ENDPROC 

1618 : 

1626 DEF PROCupdate 

1630 phi=@: theta=@: psi=@: hmove%$=G@: 
vmove%=6 

1640 REPEAT 

1656 *FX 15,6 

1668 key=GET 

1670 UNTIL key=13 OR key=58 OR key=88 
OR key=98 OR key=65 OR key=81 OR key=13 
5 OR key=127 OR key=136 OR key=137 OR k 
ey=138 OR key=139 

16886 REM Rotate about X axis ? 

1699 IF key=139 THEN phi=anglestep 
1706 IF key=138 THEN phi=-anglestep 
1718 REM Rotate about Y axis ? 

1720 IF key=137 THEN theta=anglestep 
173@ IF key=136 THEN theta=-anglestep 
174@ REM Rotate about Z axis ? 

1758 IF key=13 THEN psi=-anglestep 
1768 IF key=58 THEN psi=anglestep 
1776 REM Change viewing distance ? 
1786 IF key=127 THEN distance$=distanc 
eSt+diststeps 

1798 IF key=135 THEN distance%=distanc 
e$-diststep% 

1808 IF key=98 THEN hmove%=-movestep 
18190 IF key=88 THEN hmove%=movestep 
1820 IF key=65 THEN vmove$=-movestep 
1838 IF key=81 THEN vmove%=movestep 
1848 ENDPROC 

1850 : 

1868 DEF PROCrotate 

1878 IF phi<>@ THEN PROCXrotation 
1886 IF theta<>@ THEN PROCYrotation 
1896 IF psi<>@ THEN PROCZrotation 
1986 IF hmove$<>@ OR vmove%<>@ THEN PR 
OCshift 

1918 ENDPROC 

1926 : 

1938 DEF PROCXrotation 

1948 REM Rotate about X axis 

1958 Cosphi=COS (phi): Sinphi=SIN (phi) 
1968 FOR count%$=1 TO points’ 

1976 Y=Y(count%): Z=Z(count$) 

1986 Y(count’) =Y*Cosphi-Z*Sinphi 

1998 Z(count%) =Z*Cosphi+Y*Sinphi 

2088 NEXT count’ 

2819 ENDPROC 

2620 : 

2038 DEF PROCYrotation 

2049 REM Rotate about Y axis 

2058 Costheta=COS (theta): Sintheta=SIN 
(theta) 

2066 FOR count$=1 TO points’ 

2078 X=X(count%): Z=Z(count$) 

28898 X(count’) =x*Costheta-Z*Sintheta 
2698 Z(count%) =Z*Costheta+X*Sintheta 
2108 NEXT count% 

2118 ENDPROC 
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2128 : 

2138 DEF PROCZrotation 

214@ REM Rotate about Z axis 

2158 Cospsi=COS (psi): Sinpsi=SIN(psi) 
2168 FOR count%=1 TO points% 

2176 X=X(count%): Y=Y (count) 

2188 X(count%) =x*Cospsi-Y*Sinpsi 

2198 Y(count%) =Y*Cospsi+X*Sinpsi 


2286 NEXT count 

2218 ENDPROC 

2226 : 

2236 DEF PROCshift 

2246 REM MOVE CUBE UP/DOWN/LEFT/RIGHT 


This program is adapted from a 
version for the BBC micro first 
published in BEEBUG Vol.1 No.1. 


POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG 


BOOTS ' CASSETTE RECORDERS 
Dear Sir, 

My compliments upon what I consider 
to be an excellent magazine. I much 
appreciated the index for ‘Start 
Programming’ in ELBUG and only wish the 
‘User Guide' had a similar index. 

I was also misled by the connecting 
instructions for the Boots CR375 
cassette recorder, which has replaced 
the CR325 recommended in ELBUG. Much 
time was expended before I realised 
that the load plug had to be inserted 


in the earpiece socket and not 
auxilliary. 

D.D.Green 
Reply: 


we are glad the index was 
appreciated. We are considering whether 
to produce a similar index for the 
User Guide. 

Other readers have also written 
about Boots' cassette recorders. The 
model CR375 will work with the 
Electron, though it is rather more 
expensive than the model CR325 which it 
replaces. 


GAMES HIGH SCORES 
Dear Sir, 

I got a high score of 93856 on Space 
City (on the ORBIT introductory 
cassette). I wasn't sure where I was 
supposed to send my high score to, so I 
posted it to you hoping that it will 
get published in the high score table. 

M.Diamond 
Reply: 

Readers will probably have seen that 
we publish a games high score table for 
the BBC micro in the supplement that 
comes with your ELBUG magazine. We 
shall be publishing a separate table 
for Electron games starting next month, 


provided that there is enough interest 
and you send us your high scores (to 
the Editorial address please). 


WHAT IS MODE 7? 


Dear Sir, 

I am delighted to have received tne 
first copy of your magazine, which I 
find very instructive and informative. 

As a novice to computing I would 
appreciate your guidance regarding the 
‘Munchman' program (published in the 
first issue of ELBUG) where line 2160 
states: 

2168 MODE 7:*FX12 
As the Electron does not have mode 7, 
could you tell me which mode I should 
use? 

I have tried previously to modify a 
BBC program containing mode 7 by using 
mode @ and mode 3, but each time was 
informed that I had a 'Bad program’. 

G.Gallagher 
Reply: 
“Mode 7 is an = additional mode 
available on the BBC micro, and is the 
default mode for that machine in the 
same way that mode 6 is the default 
mode for the Electron. ‘The Munchman 
program, which was converted froma 
version for the BBC micro, should have 
specified mode 6 at line 2160, although 
the program as listed will still work 
correctly as the Electron always 
defaults to mode 6 if mode 7 is 
selected. 

Generally speaking, however, if you 
want to convert BBC programs using mode 
7 to run on the Electron, you will also 
have to remove all the special control 
characters (they all have ASCII codes 
greater than 128), which control colour 
and other special effects. © 
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NEW SOFTWARE FROM PROGRAM POWER 


reviewed by Alan Webster 


Last month we reported that Program 
Power had just launched a range of 
software for the Electron. 


Program Power have already 
established themselves as a = major 
supplier of quality computer games for 


the BBC micro and they are rapidly 
building up a catalogue of equally good 
software for the Electron. 


The programs are all attractively 
packaged, they all load reliably and 
they are readily available in the 
shops, including chains such. as 
W.H.Smith. The first launch for the 
Electron contained 11 titles of which 
we have selected six for review. A 
further 18 programs have just been 
announced for the Electron, enabling 
Program Power to offer a really wide 
choice of computer games for the new 
Electron user. 


Note: These and other Program Power 
software are widely available through 
computer shops and dealers as well as 


many branches of Boots, John Menzies 
and W.H.Smith. 


VALLLLLLALALAMMMMMMMMMMMMMMM MMMM hhh hhh hh hh 


Name : Positron 
Supplier: Program Power 
Price : £6.95 

Rating : *** 


This is a very fast Space Invaders 
type of game, requiring superior 
reflexes if you are to prevent the 
aliens from landing. The game is not 
that original, aS computer games go, 
but worth buying if you like the 
adrenalin draining 'blast and zap '‘em' 
type of game. 


Name : Swoop 
Supplier: Program Power 
Price s £7.95 

Rating =: *** 


Swoop is one of the few games that 
happen to run much better on= an 
Electron than in its original version 
for the BBC micro. It is a variation on 
Galaxians, with the birds laying 
explosive eggs at the bottom of the 
screen. The game, although nice and 
fast, is rather repetitive. 


VALLLLLLL MMMM MMMM hhh hh hhh hhh 


Name : Cybertron Mission 
Supplier: Program Power 
Price : £7.95 


Rating : **** 


Cybertron Mission is an animated 
adventure in which you must collect 
various objects and return them to 
safes. The smooth amd attractive 


graphics provide an enjoyable game. 
There are 16 rooms on eacn level, and 
up to four different levels before the 
game restarts. As the game progresses, 
you meet more and more enemies, and 
your task becomes increasingly harder. 
Beware of the ghost that makes an 
occasional appearance! This is one of 
the better games available for the 
Electron. 


LLL hhhhhhhihhhhhhhihihhhh, 
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Name : Moonraider 
Supplier: Program Power 
Price 8 £7-95 MoonRaitder 


40 


Rating : **** 


Moonraider is a very good 
implementation of the arcade game 
Scramble. You nave to navigate a 


spacecraft through a series of caverns 
and tunnels, bombing fuel dumps and 
enemy craft to gain points. The game 
has six stages with varying speed, any 
of which can be chosen at the start. 
The graph are excellent with very 
smooth movement resulting in an 
interesting and challenging game. 


MLL hhLhhhhhhhhhhIhhhhhhhhhhhhhhhhhhhhs 


Name : Killer Gorilla 
Supplier: Program Power 
Price 3 £7.95 

Rating 3 *** 


Graphically this game compares well 
with the arcade game, but the action is 
slower. You take the part of the young 
lad, trying to rescue the maiden from 
the grasp of the gorilla. To reach the 
maiden, you must climb ladders and 
girders, avoiding fireballs and 
barrels, until you reach the top. There 
are four different screens, with lifts 
and giant springs on the third screen 
to cause you extra problems. If it 
wasn't for the lack of speed, this game 
would be thoroughly addictive. 


VA LLLLLLMMMMMMMMM MMM MMMMMMMMMMMhhhhhhhhhhhhhhhhhhhh 


Name : Felix in the Factory 
Supplier: Program Power 
Price 3 £7.95 


Rating 3 **#*** 


Felix is a factory worker who is 
left on his own one day. His job is to 
keep the generator from running out of 
oil. He is armed only with a spear to 
kill the monsters and help make his 
task of re-fueling the generator 
easier. The generator's consumption 
requires frequent journeys to get the 
oil can. If the generator does run out, 
then that spells trouble for Felix! 

This is probably the best game 
available so far for the Electron, and 
well worth the cost. 
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ELECTRON GRAPHICS (Part 3) 
by David Graham 


In the last issue we looked at the animation of simple 
characters. The characters involved were of a single colour only, Bi 
but it is possible to apply similar techniques to move multicoloured 
characters around the screen. The effects obtained in this way can 
be quite striking, and will generally enhance the visual content of 
games and other programs. 


GENERATING A MULTI-COLOURED CHARACTER Program 1 uses superimposition under 
Broadly speaking, multicoloured VOU 5 to produce a multicoloured space 
characters are produced by defining a invader. Line 169 calls PROCdef which 
separate character for each colour defines two characters, one for the 
invloved, and then superimposing one invader, and one for its eyes. The two 
over the other in the required colour. characters were created using’ the 
Before the super imposition is definer program on the ELBUG 
attempted, the call VDU 5 must be 
executed. This prevents the second 1@ REM PROGRAM COLOURED CHRS 1 
character from overwriting the first. 2@ REM AUTHOR D.Graham 
In fact VDU 5 has a number of effects, 36 REM Version E.16 
as indicated in table 1. 48 REM ELBUG Jan/Feb '84 
50 REM Program subject to copyright 
60 : 
* Characters are plotted at the 186 PROCdef 


graphics cursor position, and the text 118 MODE2 
cursor is turned off. This enables text 126 VDUS , 
or user defined characters to be placed 138 GCOLG,1:MOVE 260,200: VDU224 
anywhere on the screen by the MOVE 148 GCOLG,12:MOVE 200,200:VDU225 #& 
command. NOTE : TAB does not function 158 END Ls] itd 
when the text and graphics cursor are 166: 
joined together, and so MOVE must be 1088 DEFPROCdef 
1619 VDU23,224,24,68,126,219,90,126,66 
and graphics are only 7129 

produced within the graphics window. 1628 VDU23,225,0,9,9,36,36,9,9,9 

* The colour used is obtained from 1636 ENDPROC 
the last GCOL command, not the COLOUR 
command. introductory cassette. Line 11% selects 

* Only the foreground colour is Mode 2, and 128 calls VDU 5 so that we 
plotted, not the background colour, can superimpose the two characters on 
allowing characters to be overprinted. top of each other. Note that as 

* VDU 5 is cancelled with VDU 4. indicated above, TAB does not function 

Table 1 under VDU 5, and is replaced with the 

MOVE statement. The parameters for MOVE 
are the x and y coordinates of the 
cursor. The graphics screen on _ the 
Electron is 1286 points across by 1624 
points vertically. The GCOL statement 
in lines 148 and 158 is used to select 
the two colours - in this case red, and 
flashing yellow - blue. 


Space Invader. Eyes for Space Invader. 
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MOVING A MULTICOLOURED CHARACTER 

If we wish to move a multicoloured 
character, we can adopt a_ similar 
technique to that used for moving a 
pair of monochrome characters. That is 
to say, assign the characters to be 
printed, to a string variable, and 
print the string in successive 
positions across the screen. 


Program two achieves this. If you 
RUN this program, you will see a static 
multicoloured invader printed in the 
top half of the screen, and when the 
space bar is pressed, a second invader 
will travel across the screen. 


In the animation examples given last 
month, each time that we printed a new 
image of a character, its previous 
image was deleted from the screen by 
overprinting with a space character. A 
similar technique could be used here, 
though the overprinting would have to 
be done with a block character defined 
to the background colour. But there is 
a much more useful way of deleting a 
multicoloured character. This involves 
the use of so called exclusive-or 
plotting. 


If we use exclusive-or plotting to 
print our character, then printing it a 
second time in the same position will 
completly erase it. The great advantage 
of this approach is that it occurs in 
such a way as to leave any background 
completly unchanged; whereas deleting 
the character in the normal way would 
leave a trial of blanks across any 
scenery that the character passed 
across. 


Exclusive-or plotting is invoked by 
the GCOL statement (see User Guide page 
97). The statement takes the form 
GCOL 3,n where the 3. establishes 
exclusive-or plotting, and the no 
determines the logical colour plotted. 
For example, try the following 
statements: 

MODE 2 

GCOL 3,5 

voU 5 
Now press Return a few times. You 
should see the prompt appear in magenta 
(colour 5). Now press say the letter 
'L'. This will again appear in magenta. 
If you now execute CRTL-H (ie hold down 
the CTRL key and press H), this will 


backspace the cursor, though the cursor 
is not visible under VDU 5. Now when 
you press the letter 'L', the previous 
one will be erased. This is because the 
two letters were exclusive-or plotted 
over the top of each other. 


Program 2 uses this technique to 
erase earlier images of the invader as 
it moves across the screen. PROCdef 
defines the two parts of the invader as 
in program 1. PROCchrs (defined in 
lines 105@ to 1698) first creates the 
equivalent of two GCOL statements. REDS 
is assigned the sequence 18,3,1 which 
has the same effect as VDU 18,3,1 which 
(see User Guide page 187) is equivalent 
of GCOL 3,1. This invokes exclusive-or 
plotting in red (for the invaders 
body). YELLOWS is equivalent to 
GCOL 3,12 to exclusive-or plot flashing 
yellow for its eyes. Line 1080 then 


1@ REM Program COLOURED CHRS2 

20 REM Author  D.Graham 

30 REM Version E1.9@ 

48 REM ELBUG Jan/Feb '84 

58 REM Program subject to copyright 
66 : . 

106 PROCdef 
11@ PROCchrs 
128 MODE2 
138 VDU5 ce: 

146 : 4 i) 
150 MOVE64@, 864: PRINTINVADERS 

168 GCOLG,3:PRINT'" Press space bar" 
176 : 

180 : 

198 REPEAT 

206 REPEAT UNTIL GETS=" " 

218 MOVEG,512 

220 PRINTINVADERS;CHRS$8; 

238 FORlLoop%=8 TO 18 

240 PRINTINVADERS; INVADERS; 

258 vDU8 

268 NEXT 

276 PRINTINVADERS$ 

28@ UNTIL FALSE 

298 : 

1008 DEFPROCdef = = 
1010 VDU23,224,24,60,126,219,98,126,66 


,129 


1626 VDU23,225,6,0,0,36,36,0,0,0 

183@ ENDPROC 

1048 : 

1656 DEFPROCchrs 

106@ REDS=CHR$18+CHR$3+CHRS1 

1078 YELLOWS=CHR$18+CHRS$3+CHR$1 2 

1088 INVADERS=REDS$+CHRS$224+CHRS$8+YELLO 


WS+CHR$225 


1696 ENDPROC » 


a a EE ES 
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combines the GCOL codes with the actual 
character definitions (CHRS 224 and 
225). CHRS 8 performs a backspace to 
achieve superimposition. 


The vital line in the invader moving 
routine (lines 198 to 280) is 248. This 
prints INVADERS twice in adjacent 
positions. The left-most printing 
serves to delete the previously printed 
image. When using this technique, the 
very first and very last invader 
positions must be catered for 
separately. This is achieved in lines 
226 and 276. You may like to try 
omitting them to see the effect. 


As mentioned above, the use of 
exclusive-or plotting has an important 
consequence. Backgrounds are not 
deleted when characters are erased. To 
see this in action, add the following 
lines to program 2. : 


176 PROCbox 
1108 DEFPROCbox 
1128 GCOLG,6 = a 
1130 PLOT4,540,612:PLOT4, 548,412 
1146 PLOT85, 740,612: PLOT85, 740,412 
1158 ENDPROC 


Their function is to draw a filled box 
in the middle of the screen in the path 
of the invader. If you run the program, 
you will see that the invader becomes 
faint as it passes the box, only to 
emerge leaving the box, am itself 
completely intact. 


In practice the effect of 
over-plotting colours under GCOL 3 
depends on the logical colour numbers 
associated with them, and it is 
possible to organise things in such a 
way that characters can appear to move 
in front of some objects, and behind 
others. We will take a closer look at 
this in a future issue. 


In the meantime, there is just one 
further technique which may be used to 
improve the look of the moving 
multicoloured character. This concerns 
the jerkiness of its movements. It is 
possible to make the invader move more 
smoothly by using smaller increments in 
between each printing. 


However, this slows down the 
printing process to a point where each 
character does not move quickly enough 


across the screen. One way of almost 
doubling the speed of the Electron in 
such cases is to use Mode 5 rather than 
Mode 2; but a consequnce of this is 
that you may only display 4 colours 
simultaneously (including background) ; 
though the particular colours displayed 
may be chosen by the user with the 
VDU 19 command (see User Guide page 
187). 


Program 3 uses these techniques to 
move an invader across the screen, more 
smoothly than in program two. Mode 5 is 
chosen, and the invader is plotted at 
closer intervals than in program 2. The 
FOR loop in line 238 increments the 
print position by 32 graphics units (a 
screen is 1280x1024 units). Line 260 
backsteps by the same amount to 
overprint, and erase, the previous 
image. 


If you try this program you will see 
that the invader still sometimes takes 
on a 'ragged' appearance. This is due 
to the timing of the screen scan of the 
VDU. At machine code speeds it is 
possible to eliminate this with FX call 
19 (ie *FX19). This synchronises 
printing operations with screen scan. 


In the next issue we will take a 
look at the other method of producing 
colour graphics on an Electron, using 
the DRAW and PLOT statements. 


1@ REM Program COLOURED CHRS3 
28 REM Author D.Graham 

30 REM Version E1.@ 

4@ REM Elbug Jan/Feb '84 

58 REM Program subject to copyright 
60 : . 

186 PROCdef 
118 PROCchrs 
128 MODES et mr 
“ww: ” 
15@ MOVE64@, 864: PRINT INVADERS 

16@ GCOLG,3:PRINT'" Press space bar" 
178 PROCbox 

180 : 

196 REPEAT 

266 REPEAT UNTIL GETS="_" 
218 MOVEG,512 fy 
220 PRINTINVADERS;CHRS8; Mii 

236 FORloop%=8 TO 1152 STEP 32 

246 MOVEloop%, 512 

250 PRINTINVADERS; 

268 PLOTG,-32,9 

270 PRINTINVADERS; » 
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280 NEXT 

298 PLOTG,-64,G 
300 PRINTINVADERS$ 
318 UNTIL FALSE 


1006 DEFPROCdef 
1018 VDU23,224,24,60,126,219,90, 126,66 


1620 VDU23,225,0,9,0, 36, 36,0,9,0 
1036 ENDPROC 

1048 : 

1958 DEFPROCchrs 


1068 REDS=CHRS$18+CHRS$3+CHRS$1 
1676 YELLOWS=CHRS 1 8+CHRS$3+CHRS2 
1888 INVADERS=REDS+CHR$224+CHRS$8+YELLO 


WS+CHR$225 


1698 ENDPROC 

1108 : 

111@ DEFPROCbox 

1128 GCOLG,1 

113@ PLOT4, 540,612: PLOT4, 540,412 
1148 PLOT85, 746,612: PLOT85, 740,412 
1158 ENDPROC 


NEW CHARACTER SETS FOR MODES 2 & 5 
by Alan Baker 


This program generates a completely new character set of 26 upper 
case letters for use in modes 2 and 5. The styling is different, but 
more importantly they are designed to give 26, rather than 26 
characters per line, rendering much more readable and ellegant text 


in these two useful graphics modes. 


The routine used to generate this 
new character font is quite 
straightforward. The 26 letters of the 
alphabet are redefined on a 6 by 5 
pixel matrix using VDU 23 commands and 
then printed anywhere on the _ screen 
using the graphics cursor, backspacing 
two pixels before printing the next 
letter. The normal character set is not 
lost, and may be used concurrently. 


The technique employed here could be 
extended to redefine further 
characters; though special *FX calls 
will need to be made to expand the 
memory allocated to character 
definitions. This is achieved using 
*FX20 (see page 282 of the User Guide). 


If you run the program, after typing 
it into your Electron, you will be 
asked to specify a position on the 
screen in graphics coordinates (x must 
be between @ and 1279, and y must be 
between @ and 1623 with 98,0 at the 
bottom left hand corner of the screen), 
and the character string to be 
displayed. The text is then displayed 
on the screen using the newly defined 
character set, and the program then 
terminates. 


PROGRAM NOTES 
The procedure PROCinitialise defines 
the 26 new characters, any of which may 


ELBUG FOR THE ELECTRON 


rbBh?ve FoR THE ELECT 


then be displayed on the screen by 
using the procedure PROCalpha- with 
parameters xcoord, ycoord and texts. 
When this procedure is called, the 
parameters xcoord and ycoord point to 
the top left position of the first 
character from which the text in text$ 
will be displayed. These two parameters 
must be given in graphics coordinates, 
as described above. The two procedures 
could be readily incorporated in any of 
your own programs. 


1@ REM PROGRAM NEW CHARACTER SET 

26 REM AUTHOR ALAN BAKER 

36 REM VERSION E1.@ 

40 REM ELBUG JAN/FEB 1984 

5@ REM PROGRAM SUBJECT TO COPYRIGHT. 
6@ ON ERROR GOTO 596 


» 
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00 


80 MODE 6 

98 PROCinitialise 

108 INPUTTAB(4,4)"X-COORDINATE (@-127 
9)"xcoord 

118 INPUTTAB(4,6)"Y-COORDINATE (8-182 
3) "ycoord 

126 INPUTTAB(4,8)"ENTER WORDS TO BE P 
RINTED" 

13@ INPUTTAB (4,19) ,text$ 

148 MODE 5 

15@ PROCalpha (xcoord ,ycoord, text$) 

166 END 


188 DEF PROCinitialise 

196 VDU23,224,&70,&88,&88,&F8,&88,&88 
,9;:REM A 

200 VDU23,225,&FO,&50,&78,&48,&48,&F8 
,9;:REM B 

218 VDU23,226,&F8,&88,&80,&80,&88,&F8 
79;:REM C 

226 VDU23,227,&F8,&48,&48,&48,548,&F8 
,9;:REM D 

230 VDU23,228,&F8,&40,&70,&40,&40,&F8 
79;3:REM E 

240 VDU23,229,&F8,&40,&70,&48,&40,&E0 
,9;:REMF ° 

258 VDU23,230,&F0,&80,&80,&B8,&88,&F8 
,9;:REM G 

266 VDU23,231,&88,&88,&F8,&88,&88,&88 
,9;:REM H 

276 VDU23,232,&70,&20,&20,&20,&20,&70 
70;:REM I 

288 VDU23,233,&78,&10,&19,&19,&98,&FO 
79;:REM J 

298 VDU23,234,&B0,&A0,&AG,&F8,&88,&88 
,0;:REM K 

308 VDU23,235,&E0,&49,&40,&48,&48,&F8 
79;:REM L 

318 VDU23,236,&F8,&A8,&A8,&A8,&A8,&A8 
,0;:REM M 

328 VDU23,237,&88,&C8,&A8,&98,&88 ,&83 
,0;:REM N 

338 VDU23,238,&F8,&88,&88,&88,&88,&F8 
,9;:REM O 

348 VDU23,239,&F8,&48,848,&78,&40,&48 
,9;:REM P 


350 VDU23, 246,&F8,&88,&88,8&A8,&90,&E8 
10;2REM Q 

368 VDU23,241,&F8,&48,&48,&70,&48,&48 
79;:REM R 

378 VDU23,242,&F8,&80,&F8,&08,&88,&F8 
70;:REM S 

380 VDU23, 243,&F8,&A8,&A8,&20,&20,879 
70;:REM T 

398 VDU23,244,&88,&88,&88,&88,&88,&F8 
7@;2:REM U 

490 VDU23,245,&88,&88,&88,&50,&50,&20 
79;:REM V 

410 VDU23,246,&88,&88,&A8,&A8,&A8,&50 
79;3REM W 

429 VDU23,247,&88,&58,&20,&50,&88,&88 
7@;2REM X 

430 VDU23,248,&88,&88,&76,&20,&29,&20 
7@;:REM Y 

440 VDU23,249,&F8,&10,&26,&40,680,&F8 
70;:REM Z 

458 ENDPROC 

466 : 

476 DEF PROCalpha(xcoord,ycoord, text$ 


488 vDUS 

490 M%=1 

580 FOR N%=xcoord TO xcoord+(LEN(text 
$) *48-48) STEP48 

518 mS=MIDS (text$,M%,1) 

528 MOVE N%,ycoord 

536 IF mS<>" " THEN PRINT CHRS(159+AS 
C(m$) ) 

540 M3=M%+1 

558 NEXT 

568 VDU4 

570 ENDPROC 


598 ON ERROR OFF:MODE 6 
606 IF ERR<>17 REPORT:PRINT" at line 


613 END 


This program is adapted from a 
version for the BBC micro that was 
first published in BEEBUG Vol.1 aa) 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 


UNINTERRUPTABLE PROGRAMS - G.Middleton 


At last it 1s possible to write programs which can not be stopped with the Break 
or Escape keys. Use the following lines at the head of your programs: 


18 ON ERROR RUN 
28 *FX247,76 
36 *FX248, 20 
40 *FX249,189 


These commands alter the locations looked at whenever the Break key is pressed, so 
that the machine jumps straight back into Basic and re-runs your program. 
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REVERSI 
by J. Webb 


The game of REVERSI (sometimes known as OTHELLO) is a fascinating 
game played on a conventional Draughts board, with two players. This 
version is well written and allows you to play either against the 
computer or against another player, using the computer to record the 
moves. You can also choose one of two levels of skill when playing 
against the computer. Even at the lower level, the program plays a 
pretty good game. 


In this version of REVERSI the first quickly understand how the game works. 
two counters are placed on the board Even so REVERSI is a game which 
for you as these are fixed moves. At requires considerable skill to play. In 
the start, you have the choice of this version you are able to choose one 
colour and whether to play first or of two playing levels at the start of 
second. From then on you must always each game. Beginners will find even 
place one of your counters on the board level one quite challenging. We think 
in such a way that a line of your you will enjoy playing this well 
opponent's counters then has one of constructed version of a popular game. 


your counters at both ends. The 
surrounded counters are now reversed so 
that they change to the colour of your 
own pieces. Of course, you may well be 
able to place a_ single counter that 
captures more than a just a single row 
of your opponent's pieces. 


If on your turn, you are not able to 
move to a legal position, then you must 
pass, by pressing P. The game ends when 
nobody can place any more counters on 
the board (usually when the board is 
full), and the winner is the one who 
has the most counters. The program 
maintains the current score on the 
screen throughout the game. 


16 REM Program REVERSI 


This is one of those games where it 20 REM Version E1.1 
is much more difficult to explain the 30 REM Author J.Webb 
rules than it is to play the game 40 REM ELBUG JAN/FEB 84 
itself. Once you start playing you will 50 REM Program subject to Copyright 
60 : 
88 MODE] 
1@ ON ERROR GOTO 900 
REVERSI 128 DIMposition’ (169) 
The object of this pane, is, te have 13@ PROCcircles 
iG crn esa! 3 played gineen of Ft pad 146 PROCinstructions 
gs H Srersnethers x tes” es 50 REPEAT :PROCinit 
yeti severe tees mode to then phays 3p- 168 aiaonslasouaant 
vou. can gainst either the 7@ PROCfindplayers 
computer or tt 2isst.. 80 REPEAT 


Pre ‘space bar’ to play. 


208 PROCcompute 

218 PROClookatgo 

226 UNTILillegal%=2 

23@ PROCupdatescore 

248 turn$=turn$+1:UNTILturné=603 
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258 PROCwin:UNTILwaitS<>CHRS (32) 

268 *FX15,1 

276 MODE6: END 

280 : 

966 ON ERROR OFF:MODE 6:REPORT: PRINT 
"at line ";ERL:END 

919 : 

1806 DEFPROCinit 

1619 FORDos$=1TO1 06: position’ (poss) =0: 
NEXT 

1626 turn’=G: values=1 : comp$=9:got=G:ed 
ges=0:miss%=1 

1638 ENDPROC 

1648 DEFPROCsetupboard 

1658 CLS 

1068 VDU28,9,31,19,0:VDU23,1,9;9;0;9; 

1076 VDU4 

1988 VDU19,2,6,9,9,8:VDUS:GCOLG, 2 

1698 MOVE352,960:MOVE352, 128: PLOT85,11 
84,960: PLOT85,1184,128 

1108 MOVE416,96:GCOLG,3:PRINT"A B C 
D E F G_ H":GCOLG,2 

1118 FORY$=1 64TO928STEPI6 

1128 GCOLG, 8:MOVE384 , Y$: DRAW1152,Y$:MO 
VE1216,Y%+64:GCOLG, 3: 

1130 IFY%=928THEN1 14GELSEPRINT; (Y3-166 
)/96+1 

1148 NEXT 

1156 GCOLG, 6: FORX$=384T01152STEP96 

1168 MOVEX%, 160: DRAWX%, 928: NEXT 

1176 VDU19,2,2,4,9,9 

1180 *FX15,1 

1198 RESTORE2919 

1206 FORposition%$=1T04:READpos$,val%,C 
%:position’ (pos$) =val%$:GCOLG@,C%:PROCfin 
drowandcol (pos%) : PROCcounter : NEXT 

1218 ENDPROC 

1226 DEFPROCfindplayers 

1238 VDU4: PRINTTAB(9,13)"Do you wantto 
play thecomputer?"'"(Y or N)" 

1246 *FX15 

125@ REPEAT: waitS$=GETS$: UNTILINSTR ("YNy 
n" ,waitS$) >@:SOUND&11,2,40,4: PROCclear (1 
9) 

1260 IFwaitS<>"Y"ANDwait$<>"y"THENENDP 
ROC 

1278 PRINTTAB(8,18)"Do you wanta hard 

oreasy game?"'" (H or E)" 

1280 *FX15 

1298 REPEAT: waitS=GETS: UNTILINSTR ("HnE 
e" ,waitS) >@:SOUND&11,2,40,4:PROCclear (1 
Q) : [FwaitS="H"ORwaitS="h"THENmiss$=9 

1380 go%=1:PRINTTAB(8,10)"Do you wantt 
o go first(Y or N)?" 

1316 *FX15 

132@ REPEAT: wait$=GETS: UNTILINSTR ("YNy 
n" ,waitS) >@:SOUND&11,2,40,4: PROCclear (1 
8) 

1336 IBwaitS="Y"ORwaitS="y"THENENDPROC 

1348 go$=2: ENDPROC 


1358 DEFPROCcircles 

1366 VDU23,224,0,0,9,3,7,15,31,31 

1376 VDU23,225,8,8,126,255, 255, 255, 255 
7255 

1388 VDU23,226,0,08,6,192,224,246,248,2 
48 

1396 VDU23,227,31,63,63,63,63,63,63,31 

1486 VDU23, 228,255, 255,255,255, 255, 255 
7255,255 

141G VDU23,229, 248,252, 252,252, 252, 252 
7252,248 

1428 VDU23,230,31,31,15,7,3,9,9,0 

1436 VDU23,231,255,255,255,255,255,126 
70,0 

144@ VDU23,232,248,248,240,224,192,0,9 

i) 

’ 

1450 C1S=CHRS224+CHRS$225+CHRS$226:C2S=C 
HR$227+CHRS$228+CHRS$229 :C3S=CHRS$23G+CHRS 
231 +CHR$232 

1468 circle$=C1$+CHRS8+CHRS$8+CHRS8+CHR 
$16+C2$+CHRS8+CHRS$8+CHRS8+CHRS19+C3$ 

1476 ENVELOPE1,4,4,0,0,9,08,0,121,-19,- 
5,-2,126,120: ENVELOPE2,16,4,-8,-4,16,16 
132,64,64,-64,-64,128,0 

1486 ENDPROC 

1498 DEFPROCclear (tab%) : PRINTTAB (3, tab 
%$) SPC (42) : ENDPROC 
1588 DEFPROCgo 
1518 VDU4:pass%=9:COLOUR2 
1520 IFgo$<2THEN155@ 

153@ PROCclear (4) :go$=1: PRINTTAB(@,4)" 
Computing": IFvalue%=1THENvalue%=2:GCOLU 
, 0: ELSEGCOLG, 3: value$=1 

1548 ENDPROC 

1558 IFvalue%=1]THENPRINTTAB (9,4) "Black 
's go:":value$=2: GCOLG, 0: ELSEPRINTTAB (8 
74)"White's go:":GCOLG, 3: values=1 

1560 IFyos>OTHENgos=2 

1578 REPEAT: REPEAT: PROCclear (5) : PRINTT 
AB(8,5)"Column? "; 

1588 col%$=GETAND223: UNTIL (col$>64ANDco 
1%$<73) ORCO1%=80: PRINTCHRS (col%) :col$=co 
13-64: IFcol$=1 6THEN1619 

1596 PRINTTAB(G,6) "Row? "; 

1666 row$=GET: row$=row$-48: PRINT; rows 

1610 UNTIL (row%>@ANDrow%<9) ORco13=16 

1628 VDU5:pos$=col$*1 G+row3+1 

1638 ENDPROC 

1640 DEFPROCcounter 

1658 SOUND&11,1,94,12 

1668 VDU5:MOVE291+96*col1$, 159+96* rows: 
PRINT;circle$ 

1676 TIME=@: REPEATUNT ILTIME>5@ 

1688 ENDPROC 

1690 DEFPROCillegal 

1786 VDU4:SOUND&10,2,70,25 

1718 PROCclear (5) 

172@ PRINTTAB(G,5)"Illegal"'" move" 
1738 IFvalue$=1THENvalue%=2ELSEvalue$=1 
1748 IFgo$=2THENgo%=1 » 
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1758 TIME=@: REPEATUNTILT IME>266 

1766 ENDPROC 

1778 DEFPROCwe igh 

1788 weight%=@: IFposition’ (pos%) >GENDP 
ROC 

1798 RESTORE2926 

1800 FORB$=1TO8: READC% :A%=pos% 

1818 IFedge%<>O@THENCS=edge$ :B3=8 

182@ REPEAT: IFAS=pos%THEN 1 876 

1836 IFposition’ (AS) =G@THENAS=199:GOTO1 
870 

1840 IFposition’ (A%) =valueSANDposition 
% (A$-C$) <>valueSANDposi tion’ (A%-C$%) >OTH 
ENillegal$=1 :weightS=weight3+ABS ( (pos3- 
A$) /C%) -1: PROCcheckedge: PROCedge :A3=199 
:GOTO1868 

1858 IFposition$’ (A$) =value%ANDposition 
% (A%-C%) =G@THENAS=199 

1868 IFweight%>bestgo$THENbestgo%=weig 
ht%:compgo%=pos% 

1878 A$=A$+C%: UNTILAS>1 @GORAS<1 

1889 IFillegal$=lANDcomp%<>2ANDcol$<>1 
6THENA%=pos% : PROCchangecolour 

189@ NEXT: ENDPROC 

1988 DEFPROClookatgo 

1918 black%=@: whi te%=@: IFcol%=16ANDpas 
S%=GTHEN1 966 

1920 IFpass%=]1THENil legal $=2:turn3=tur 
n3-1:GOTO1 960 

1938 illegal%=0 

1946 IFposition’ (pos%) >@THENPROCillega 
1: ENDPROC 

1958 PROCweigh 

1968 FORA%=1TO100: IFposition’ (A$) =3THE 
Nposition$’ (A$) =value$ 

1976 IFposition$’ (A$) =2THENblack%$=black 
$+1 

1986 IFposition’ (A%) =1THENwhite%=white 
$+] 

1998 NEXT 

2000 IFcol$=16ANDillegal$=@THENillegal 
$=2:turns=turns-1 

2618 IFillegal%<>2THENPROCillegal 

2028 IFblack$=@ORwhi tes=@THENturn$=59 
2838 ENDPROC 

2649 DEFPROCfindrowandcol (posit$) 

2050 col%=posit%DIV1G 

2060 row%=(posit%$-1)MOD1G 

2676 ENDPROC 

28680 DEFPROCchangecolour 

2698 REPEAT: PROCfindrowandcol (A$) 

2168 IFposition’ (A%) <>3THENPROCcounter 
2118 position’ (A%) =3:A%=A%+C%: UNTILpos 
ition’ (A$) =value$:illegal$=2 

2128 ENDPROC 

2138 DEFPROCupdatescore 

2148 VDU4: PRINTTAB(G,15) "Last go-"; 
2156 IFcol$=16THENPRINT"P ":K%=K%+1:EL 
SEPROCf£ indrowandcol (pos$) : PRINTCHRS (col 
%+64) ; rowS: KS=0 


2168 col%$=@0: PRINTTAB(9,16)"Black: ";bl 
ack$;" " 

2178 PRINTTAB(9,17)"White: ";whited;" 
"; IFK3=2THENturn$=59 

2180 ENDPROC 

2196 DEFPROCinstructions 

2268 VDU19,1,2,9,4,9 

2218 VDU23,1,0; 9; 9; 0; :SOUND&11,2,80,255 

2228 COLOUR]: PRINTTAB (14,3) ; "REVERSI" 

2238 COLOUR2:PRINT''" The object of 
this game is to have"';"the most dis 
cs displayed when the"';"board is fu 
Tye" 

2240 PRINT" After a disc is played, a 
11 of your "';"opponents discs trapped 
between the"';"disc just played and ano 
ther disc of"';"yours are reversed to y 
our colour." 

2258 PRINT" If, on your turn, you do 
n't have a"';"legal position to move t 
© then press 'P'to pass." 

2260 PRINT" You can play against 
either the"';"computer or another play 
ex." 

2278 COLOUR3: PRINT'''TAB(6);"Press 'sp 
ace bar' to play." 

2280 *FX15,1 

2296 REPEAT UNTIL GET=32 

2388 ENDPROC 

2318 DEFPROCwin 

2328 VDU5:GCOLG, 3:MOVE609 , 32: SOUND&11, 
2,880,255 

2330 IFblackt>white$PRINT"Black wins!" 
:GOTO2356 

2348 IFwhitet>blackSPRINT"White wins!" 
ELSEPRINT"Close game!" 

2356 VDU4:COLOUR1 : PRINTTAB (@,23) "Press 

spacebar to play again" 

2366 *FX15 

2370 wait$=GETS 

2388 ENDPROC 

2396 DEFPROCedge: IFG$<>@THENENDPROC 

2488 RESTORE286@:Q%=@: REPEAT: Q3=Q3+1:R 
EADcheck$ : UNT ILcheck%=pos% 

2410 RESTORE286@:FORP%=1TOQ$+1 : READche 
ck 

2428 IFP%=Q%-1ANDposi tion’ (check) >@AN 
Dposition$ (check$) <>valueSTHENweight3=8 
2430 IFP%=Q%+1ANDposi tion’ (check$) >G@AN 
Dposition’ (check$) <>value$THENweight3=0 

2440 NEXT 

2459 ENDPROC 

2466 DEFPROCcheckedge: IFedget=@THENEND 
PROC 

2476 IFposition’ (pos$-edge%) >BANDposit 
ion’ (pos%-edge$) <>valuetTHENweight3=9 

2486 IFposition’ (A%+edge%) >GANDpositio 
n% (A$t+tedge%) <>valueSTHENweight3=6 
2498 ENDPROC Bw 
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2508 DEFPROCcorner :FORQ%=1TO3: READpos% 
: PROCwe igh: RESTORE296@ : FORS=GTOR3+Q%:R 
EADT%: NEXT : NEXT: ENDPROC 

2518 DEFPROCcompute 

2528 G%=1 :bestgos=G: illegal %=@: IFcol3= 
1 6THEN2559 

2538 IFgo%<>1THENENDPROC 

2548 comp%=2 

2558 RESTORE2820:FORR%=1TO4: READpos$%: P 
ROCwe igh : RESTORE282@ : FORS%=1TOR%: READTS 
: NEXT: NEXT 

2568 IFbestgo%$>@THEN2778 

2578 IFcol%=16THEN2640 

2580 IFturn$<5ORmiss%=1THEN264G 

2590 FORedge%=-1TO1STEP2: RESTORE2836:F 
ORR%$=1TO1 2: READpos$ : PROCweigh: RESTORE28 
38:FORS%=1TOR%: READT$ : NEXT: NEXT: NEXT 

2608 FORedge%=-19TO1 GSTEP2G: RESTORE284 
@:FORR$=1TO1 2: READpos$: PROCwe igh: RESTOR 
E2840:FORS%=1TOR$: READT$: NEXT: NEXT: NEXT 

2618 edge%=0: IFbestgos>GTHEN2779 

2628 G%=G: RESTORE285@ : FORR$=1TO16: READ 
pos%: PROCweigh : RESTORE2856 : FORS%=1TOR%: 
READT$ : NEXT : NEXT 5 

2638 G%=1: IFbestgo$>@THEN2776 

2648 RESTORE287@:FORR%=1TO1 2: READpos$: 
PROCwe igh: RESTORE2879 : FORS%=1TOR%: READT 
$3 NEXT: NEXT 

2658 VDU19,1,2,0,6,0 

2668 IFbestgo%>GANDmiss%=@THEN27 78 

2670 RESTORE288@ : FORR$=1TO16: READpos$: 
PROCwe igh: RESTORE288@:FORS%=1TOR%: READT 
$: NEXT: NEXT: IFbestgo%>@THEN2776 

2680 RESTORE289@:FORR%$=1TO1 6: READpos’: 
PROCwe igh: RESTORE289@ : FORS%=1TOR%: READT 
%$: NEXT: NEXT: IFbestgo%>@THEN277@ 

2696 IFmiss%=1THEN2760 

2708 RESTORE29@@:FORR%=9TO] 2: READpos% 

2718 IFR$MOD4=@ANDposi tion’ (pos%) =valu 
e%THENPROCcorner 

272@ RESTORE29@ :FORS%=OTOR$%: READT$: NE 
XT: NEXT: IFbestgo%>@THEN277@ 


2736 RESTORE290@:FORR%=@TO1 2: READpos% 
2748 IFR&MOD4=GANDposi tion’ (pos%) >@THE 
NPROCcorner 

2758 RESTORE290@ : FORS$=@TOR%: READT3: NE 
XT: NEXT: IFbestgo%>@THEN2779 

2760 RESTORE290@ : FORR$=1TO16:READpos$: 
PROCwe igh : RESTORE2969 : FORS%=1TOR%: READT 
%: NEXT: NEXT 

2776 IFcol%=16THENENDPROC 

2788 comp%=1: IFbestgo%>@THENpos%=compg 
0% : ENDPROC 

2798 SOUND&11,1,2,12:VDU4: PRINTTAB(@,5 
);"Pass - no"'"legal move": TIME=@: REPEA 
TUNTILTIME>288 

2808 col%=16:pass%=1 

2818 ENDPROC 

2828 DATA12,19,89,82 

2838 DATA14,15,16,17,84,85,86,87,13,18 
783,88 

2848 DATA32,42,52,62,39,49,59,69,22,72 
729,79 

2850 DATA14,17,39,69,87,84,62,32,15,16 
149,59,85,86,42,52 

2868 DATA13,14,15,16,17,18,29,39,49,59 
,69,79,88,87,86,85,84,83,72,62,52,42,32 
722 

28708 DATA37,36,35,34,44,54,64,65,66,67 
757,47 

2888 DATA24, 25, 26,27, 38,48,58,68,77,76 
175,74,63,53,43,33 

2896 DATA32,42,52,62,84,85,86,87,69,59 
149,39,17,16,15,14 

2968 DATA19,18,28,29,89,79,78,88,82,83 
913, 72,12,22,23,13 

2919 DATA45,2,0,46,1,3,55,1,3,56,2,0 


2920 DATA1,9,16,11,-1,-9,-10,-11 


This program is adapted from a version 
for the BBC micro first published in 
BEEBUG Vol.2 No.6. & 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


DOUBLE QUOTES - A.Baker 


To get a " mark inside a piece of text delimited by "..." use two together: 


PRINT "THIS IS A "" DOUBLE QUOTE" 
It gives: 
THIS IS A " DOUBLE QUOTE 


If you are going to put a double quote in the middle of a string, then the string 
must be delimited with normal quotes, and the quote marks entered inside with two 


together as above. 


INPUTLINE — P.G.Barnes 


When using the INPUTLINE statement, TAB can be used to position the printed text 


and the input itself e.g. 


INPUTLINE TAB(10,5) "ENTER NAME"TAB(5,7) AS 
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ELLIPTO 
by S. Wilkinson 


This is a relatively short program 
which produces varied patterns by 
plotting a succession of filled 
ellipses of random size. The ellipses 
have the same centre, and the pattern 
is gradually built up using so-called 
‘exclusive or' plotting (achieved with 
the GCOL 3,1 statement in line 186 - 
see User Guide page 153). This program 
allows you to select either mode 4 or 
mode @, and gives white patterns on a 
black background. When one pattern 
complete, pressing any key will produce 
a new display. Press Escape to exit the 
program. 

This program is adapted from a 


version for the BBC micro that first 
appeared in BEEBUG Vol.2 No.2 


19 REM Program ELLIPTO 

26 REM Version 1.9 

36 REM Author S.wWilkinson 

40 REM ELBUG Jan/Feb 1984 

5@ REM Program subject to copyright 


76 ON ERROR GOTO 340 


80 MODE6 
96 PRINT 


100 REPEAT:CLS 
110 PRINT''"TAB(12);"E LL I PT oO"! 
TAB(12);"by S.Wilkinson" 
128 INPUTTAB(0,15)"Mode @ or Mode 4 : 
"MS 
138 UNTIL M%=4 OR M3=0 
149 MODE M% 
158 IF M$=0 M3=z 
168 VDU23,1,0;90;0;0; 
17@ VDU29,640;512 
188 GCOL3,1 
198 REPEAT 
208 C%=RND(7) *16+16 
219 FORA=16 TO 512 STEP C% 
228 FORB=16 TO 512 STEP C$ 
230 L%=-A 
248 MOVEL%, G: DRAW-L$,@ 
258 FOR Y%=4 TO B STEP4 
260 X$=A/B*SOR (B*B-Y&S*Y$%) /M&: X$=X3*MF 
276 MOVE X%,Y%:DRAW -X$,} 
289 MOVE X%,-Y%$:DRAW -X$,-Y$% 
298 NEXT Y$% 
308 NEXT B,A 
318 A=GET:CLS: UNTIL FALSE 
326 
330 : 
348 ON ERROR OFF 
358 MODE6:IF ERR=17 END 
3606 REPORT: PRINT" at line ";ERL 


370 END rs 


, 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


STEPPING THROUGH LISTINGS - R.Q.McMinn 


When listing a long program you can freeze the listing by pressing Control and 
Shift simultaneously. Releasing either key allows the listing to continue. 


ELBUG 


Jan/Feb 1984 


Volume-1 Issue-3 


HOW TO WRITE A GAME PROGRAM (Part 2) 
by Mike Williams 


We continue and complete the article which we started last month 
describing how to design and develop your own game program. In this 
part we cover user defined characters and their movement on the 
screen, and complete the game with a simple scoring system. 


The first task this month is to work 
out how to draw the parcels. Because 
these are fairly small, we shall use 
user-defined characters rather than 
Draw and Plot routines. The character 
is defined on an 8 by 8 matrix. We have 
to draw parcels in three different 
sizes, sO we will choose these to be 
three by three, four by four, and five 
by Five. The reason for these 
particular sizes is explained shortly 
(and illustrated below). In order to 
present a more attractive game, we will 
arrange for each parcel to move across 
the sky on a toboggan. The toboggan is 
made up of two user defined characters 
as shown in the diagram. skeleton of which we wrote last month 

in lines 1206 and 1296. Let's start by 
defining the toboggan. We then have as 
follows 


1208 DEF PROCchars 

1218 VDU23,224,0,0,8,48,72,71,32,31 
1228 VDU23,225,6,9,0,0,0,255,1,255 
1298 ENDPROC 


Refer to our series on Electron 
graphics, in this and the previous two 
issues of ELBUG, for more information 
on the VDU 23. command and the 
definition of your own characters. 

If the instructions above are typed 
into your Electron, you can test them 
in immediate mode as follows. First 
select the correct graphics mode: 


The characters for the three sizes MODE 2 <return> 
of parcel are designed so that each Then define the two characters: 
parcel appears to rest neatly on the PROCchars <return> 
rear of the toboggan when the two You can now display the toboggan by 
characters are superimposed. Again, typing: 
with something of this kind, a certain PRINT CHR$224;CHR$2Z5 <return> 
degree of trial and error is necessary 
to achieve results that look best on If you find that your first attempt at 
the screen. In practice, either use defining characters is not successful, 
paper and pencil (as in the diagrams then you can redefine them and repeat 
here) or the character definer on our the steps above. Assuming that our 
introductory cassette, to design the definitions in lines 1218 and 1226 are 
characters in the first place. The alright, we can now define the parcels 
character definitions are all contained themselves, so that they rest neatly on 
in the procedure PROCchars, the the toboggan: 
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1236 VDU23, 226,248,136, 136,136,248, This procedure will eventually have to 
G,6,9 : look for keyboard input, the dropping 

1248 VDU23,227,6,240,144,144,240,G, 
6,0 

1258 VDU23,228,4,0,224,168,224,8,8, 


of a parcel, our success or failure in 
getting the parcel into a chimney, and 
the scoring. At the moment, we are 
only concerned with moving the toboggan 
plus parcel across the screen, and we 
will put this as a procedure PROCnove, 
and call it as the first step in 
PROCplay: 


419 PROCmove 


What we have to do now is to define 
PROGnove, and we will do this starting 
at line 1600, so that it follows the 
last procedure already defined 
(PROChouse). In order to display the 
characters which we have defined, we 
need to specify a position in terms of 
the character positions and lines on 
the screen. We will use the variables 
AX%$ and AY% for this purpose, and these 


Again you can test this in immediate will have to be set initially. Since 
mode by typing: the game works in mode 2, there will be 
28 character positions across’ the 
PROCchars <return> screen, numbered from @ to 19 (from 
PRINT CHRS226 <return> left to right). Initially we shall set 
PRINT CHR$227 <return> AX%=19 and AY%=RND(10). This” will 
PRINT CHRS228 <return> allow AY% (and hence the toboggan) to 
vary randomly in height within lines 1 

The diagram above should make the to 1@ of the screen. 


connections between the various shapes 
clear. The procedure PROCchars is now 
complete. 


The next step in developing this ° 19 
game is to write the instructions that I 
will make the toboggan move across the 
screen from right to left carrying one 10 
of the three sizes of parcel, chosen 
randomly. We have already defined, in 
outline, a procedure called PROCplay 
which the program calls repeatedly 
until the game is over. For 
convenience, this part of the program 
is repeated below: 


168 REPEAT 
170 PROCplay 
186 UNTIL over$ 


198 END 
These initial values can be set up in 
The procedure PROCplay is defined at PROCsetup as: 
line 1488 but at the moment is empty, 
viz: 1930 AX$=19:AY%3=RND (10) 
1466 DEF PROCplay Every time that we call PROCmove, we 
1498 ENDPROC will need to reduce AX% by 1 (to 


produce movement across the screen), 
a EE SE ES 
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and display the toboggan at the new 
position. Thus the first three lines 
of PROCmove will be 


1668 DEF PROQnove 

1616 AX%=AX$-1 

1628 PRINT TAB(AX%,AY%) ;CHR$224;CHR 
$225;CHRS32 


Note the space character at the end, 
which will automatically erase the 
previous CHR$225 (end of toboggan) on 
the screen. This technique for moving 
objects has been described in the 
series on Electron graphics. We could 
have streamlined this section by 
defining the toboggan as a_ string 
variable in PROCsetup 


1835 toboggan$=CHR$224+CHR$225+CHRS$ 
32 
and rewriting line 1620 as 


1626 PRINT TAB(AX%,AY%) ; toboggan$ 


Tnis makes no obvious difference to the 
running of the program, but makes it 
more readable. If you run the whole 
program at this point, you should see 
the three houses displayed on the 
screen and the toboggan should move, 
once only, across the screen - we 
haven't yet done anything to return the 
toboggan to the right hand side of the 
screen. 


Now we must make a parcel appear on 
the toboggan as it moves. We have 
defined the parcel characters so that 
they fit neatly on the toboggan, but 
unfortunately, when using PRINT, if you 
print one character over another, the 
first character is completely replaced 
by the second. What we require is for 
both characters to remain, combined 
together. We can achieve this by 
combining text and graphics together. 


Normally, there are separate text 
and graphics cursors, although this is 
not always very obvious, the text 
cursor being moved by the PRINT and TAB 
instructions and the graphics cursor 
being moved by the MOVE, DRAW and PLOT 
instructions. By using the command 
VDU5, the two cursors are combined, and 
text can be printed at any graphics 
position on the screen (@ to 1279 
horizontally, @ to 1623 vertically). 
This has the added advantage, that if 


two characters are plotted (or printed) 
in the same position, then a 
combination of the two characters is 
seen on the screen rather than just the 
last one printed. This is just what we 
need for our game. 


What we must do therefore, is 
convert our positions AX% and AY%$ into 
corresponding graphics co-ordinates, 
remembering that in mode 2, a character 
has a width of 64 and a height of 32 in 
graphics units. The formulae for this 
are: 

PXB=AX%*64 

PY%=1024- (AY%*32) 


where PX% and PY% are the horizontal 
and vertical positions of the toboggan 
on the screen. 


In text mode, you count downwards 
from @ on the screen, while in graphics 
mode you count upwards from 9. The 
parcel is actually placed over the 
second character of the toboggan (+32 
horizontally) and moved down slightly 
(-4) as this looked better when viewed 
on the screen. 


Add the following lines to the 
program: 


1048 parcel = RND(3)+225 

1636 PX&=AX%*64: PY$=1 624- (AY$*32) :V 
DU5: GCOLG, parcel-225:MOVE PX%+32,PY%-4: 
VDUparcel : VDU4 


Line 1048 is part of PROCsetup and 
randomly selects one of the three 
parcel characters. This is used in 
line 1636, firstly to specify the 
colour of the parcel using the GCOL 
command, and secondly as the character 
to be printed using VDUparcel. VDU4 at 
the end of the instruction separates 
once again the text and graphics 
cursors. 


We can now complete the definition 
of PROGnmove by adding the following 
lines: 


1640 IFAX%=1 THEN AX%=19:PRINTTAB(1 
7AY%) ;CHR$32;CHR$32:AY%=RND (18) 
1658 ENDPROC 


This ensures that the toboggan is 
completely erased when it reaches the 
left hand side of the screen (AX%=1) 
and that AX% and AY% are set to new 
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values so that tne toboggan reappears 
at the right hand edge of the screen, 
and at a different height. This should 
now be visible if you run the program 
that we have built up so far. 


Before continuing, it would be 
useful to complete the procedure 
PROCsetup. The final version of this 


procedure, is as follows: 


1086 DEF PROCsetup 

1618 scoret=8:miss3=0 

1020 dropt=FALSE:over%$=FALSE 
1030 AX%=19:AY$=RND (19) 

1646 parcel=RND(3) +225 
1058 VDU23,1,0;0;0;G; 

1698 ENDPROC 


All these steps are performed just once 
at the start of the program when 
PROCsetup is called. The variables, 
score% and miss%, will count the score 
and the number of misses. The variable 
drop will be set TRUE when a parcel 
starts falling, and the variable over% 
will be set TRUE when the game is over. 
The VDU23 command in line 1858 removes 
the flashing cursor from the screen, a 
very useful facility in any game like 
ours. The other instructions have 
already been described. 


Now back to the game. We want to 
use the space bar as the signal for 
dropping a parcel. Therefore, in our 
procedure PROCplay, we need to test for 
this, and if it happens, set dropt=TRUE 
and make the parcel appear to drop 
downwards. Since the movement of the 
parcel will be different when falling 
to that of the toboggan, two new 
variables, FX% and FY%, are needed to 
represent the position of the falling 
parcel. We will also create a further 
procedure, PROCdrop, to control the 
movement of the falling parcel in the 
same way that PROGmove controls the 
horizontal movement on the screen. We 
can now complete PROCplay and the full 
procedure is as follows: 


1406 DEF PROCplay 

1418 PROCmove 

1426 IF INKEY-99 AND NOT drop% THEN 
drop$=TRUE:FX%=AX$% : FYS=AY$ 

1436 IF drop’ THEN PROCdrop ELSE FOR 
W=1 TO 1@0:NEXT 

1448 PRINT TAB(1@,@) ;score%;SPC (5) 

1498 ENDPROC 


INKEY-99 tests whether the space bar is 
pressed at that moment and that the 
parcel is not already dropping. If 
this is true, then drop% is set TRUE 
and we initialise the position of the 
falling parcel as its present position. 
At line 1436, the FOR-NEXT loop builds 
in a short delay to balance the time 
taken by the procedure PROCdrop so that 
the toboggan appears to move at the 
same speed whether the parcel is 
falling or not. Finally, the PRINT 
instruction places the current score on 
the screen, followed by five spaces so 
that any previous, and possibly longer, 
score is completely erased. 


We also need to amend one line in 
the procedure PROGnove so that once a 
parcel starts falling it no longer 
appears on the toboggan. This is very 
easy to achieve by turning the existing 
instruction at this line into an 
IF-THEN statement: 


1638 IF NOT drop% THEN PX%=AX%3*64 : 
PY$=1624-(AY$*32) :VDU5: GCOLG,parcel-25 
5:MOVE PX%+32 ,PY%-4:VDUparcel : VDU4 


As you will appreciate by now, 
describing how to develop a program 
takes up far more space than the 
program itself. However, if you have 
managed to keep up so far, we have only 
two more procedures to describe in 
detail. First of all, here is the 
procedure to drop the parcel: 


1768 DEF PROCdrop 

171@ FY$=FY$+1 

1726 COLOUR parcel-225 

1730 PRINT TAB(FX%,FY%) ;CHRSparcel 

1746 PRINT TAB(FX%,FY%-1) ;CHRS32 

1758 COLOUR 7 

1760 IF FY%>19THEN PROCtest:parcel = 
RND (3) +#225:drop%=FALSE: PRINT TAB(FX%,FY 
%) ;CHRS$32 

1796 ENDROC 


In this procedure, FY$ is increased 
by 1 to move the parcel down and the 
colour is set according to the size of 
parcel. The parcel character is then 
displayed on the screen and_ the 
previous position overwritten witha 
space. Since the parcel character is 
not mixed with any other character, the 
simpler ‘PRINT ‘TAB' instruction is 
quite adequate here. Line 1758 
restores the text colour to white, for 
displaying the score later. 
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The most complicated instruction in 
this procedure is the one at line 1769. 
This checks to see if the falling 
parcel has reached chimney height and 
then calls PROCtest to see if the 
parcel will enter the chimney or miss. 
It also re-initialises the program 
ready to send the next parcel across 
the screen. 


Lastly, we must produce a procedure 
to test whether our falling parcel will 
fall within a chimney. This is 
complicated by the fact that both 
parcels and chimneys are of three 
different sizes. The smallest parcel 
will fit in all three chimneys, but the 
largest parcel will only fit in the 
largest chimney. In addition, the 
scoring is varied as well. The 
procedure to do this is as follows: 


1806 DEF PROCtest 

1818 ON parcel-225 GOTO 1840,1830,18 
20 

1820 IF FX%=15 scoret= score%+5@:END 
PROC 

183@ IF FX%=9 score$= score$+25: ENDP 
ROC 

1848 IF FX%=3 score%= score$+10:ENDP 
ROC 

1858 score$=scores-5:misst=miss%+1 

1860 IF score’<@ THEN score%=0 

1878 IF miss$>28 THEN over%=TRUE 

1898 ENDPROC 


The numbers 15,9 and 3 in lines 1828 to 
1846 are the horizontal positions of 
the chimneys in character terms. These 
numbers were calculated from the 
graphics co-ordinates of the houses by 
remembering that one character is 
equivalent to 64 graphics units 
horizontally. The ON-GOTO statement 
selects the next instruction depending 
on parcel size. If the parcel is of 
the smallest size, we test all three 
chimneys, if the middle size we test 
the centre and left chimney, and if the 
largest size we test only the left most 
and largest chimney. The order of 


these three statements is critical to 
the correct working of the game. If 
the parcel fits a chimney, the score is 
increased and no further action takes 
place. 

The instructions from line 1850 
onwards deal with the situation when a 
parcel misses or is too large to fit in 
the chimney aimed for. In this case 
the score is decreased by 5, the count 
of misses is increased by 1 and the 
routine tests to see if the maximum of 
28 misses has been exceeded, in which 
case the game is over. We also need to 
check, in line 1866, that we haven't 
reduced the score to a negative value. 
If that happens the score is just 
returned to zero. 


You should now find that the whole 
game, aS originally described at the 
start of last month's article, now 
works. The full listing of the game 
that we also published in last month's 
issue contained two enhancements to the 
program we have described. A procedure 
called PROCnoise was defined in lines 
1988 to 1996, and used in PROCtest, so 
that when a parcel successfully enters 
a chimney, a pleasant noise is heard. 
The envelope for this noise is defined 
in PROCsetup. The noise routine was 
developed by experimenting with the 
SOUND and ENVELOPE commands (see page 
116 of the User Guide - see also Sound 
Wizard in the first issue of ELBUG). 


Secondly, when the game is over, a 
procedure PROCend is called, which just 
clears the screen and displays the 
final score. Both of the procedures, 


PROCfrontpage and PROCend could be 
improved further, to provide more 
information. 


This completes our two part article. 
There are many ideas and techniques 
that have been described here, and you 
may well find it helpful to return to 
this when you are writing your own 


programs. & 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


REPEAT DELAYS 


The delay before a key repeats, when held down, can be changed using *FX11,d. The 
delay, ‘'d', is in 1@@ths of a second. Likewise, the repeat rate is changed by 
*FX12,r. The repeat rate 'r' is also in 1@0ths of a second. When you switch the 
Electron on, 'r' and 'd' are automatically set to 8 and 32 respectively. 
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BAD PROGRAM LISTER 
by Elizabeth Hanson 


This program will list any Basic program (or any text file) 
stored in the computer, in a completely readable format, very 
similar to that produced by the LIST command. Its particular value 
is in listing programs which the command LIST will not work upon; ie 
programs which have become 'damaged' in the computer, resulting in 
the familiar response, 'Bad Program’. In this respect it forms a 
useful adjunct to the program 'RESCUE', which was published in last 
month's issue of ELBUG. In fact, LISTER will even list the remains 
of a program that has been partly overwritten, by loading in another 


shorter program on top of it. 


LISTER was written for use with the 
RESCUE program published last month in 
ELBUG. RESCUE is an extremely powerful 
utility which will miraculously heal 
‘bad programs’. 


LISTER allows you to examine a_ ‘bad 
program' before attempting to repair 
it, though it has- many other 
applications, such as reading partially 
overwritten programs. LISTER works by 
looking at the Basic tokens as they are 
stored in memory, and converting them 
back to their original keyword format. 
The program is quite small, just under 
two blocks in length, as it uses the 
look-up table in the Basic ROM at &8071 
to make the conversions. 


LISTER will not convert the line 
numbers following a GOTO, as these are 
stored in code within the computer to 
save space. Note that for the sake of 
speed (and the irregularity of the way 
the tokens are set up in memory), the 
word "AND" is printed as "ND". 


USING LISTER 

Type in the program and save a copy, 
before use, as you would any Basic 
program. 


Assuming that you want to use LISTER 
to list a program already in the 
computer, you will need to change PAGE 
before you load in LISTER. This avoids 
overwriting the program already 
resident in memory. Proceed as 


follows: 
MODE6 <return> 
PAGE=&5B09 <return> 
CHAIN"LISTER" <return> 


LISTER will then run am _ print 
"Start Address ?" on the screen as a 


prompt for you to provide a_ starting 
address for it to list from. This will 
normally be &E@@ (in hexadecimal), but 
you can type in any address that you 
want. The listing will then start and 
will be printed in 1k blocks. After 
each block the computer will bleep, and 
wait for you to press any key. It will 
then display the current address in hex 
followed by the next 1k of the program, 
and will continue in this way until you 
stop the program by pressing Escape. 


Bad Program Lister. 


Start Address?&E0G 


EO 


1@ REM PROGRAM COLOURED CHRS 1 

@ @GAUTHOR D.Graham 

3@ REM Version E.19 

40 REM ELBUG Jan/Feb '84 

5@ REM Program subject to copyright 
60 : 


16 REM PROGRAM BAD PROGRAM LISTER 
26 REM VERSION E1.1 

3@ REM AUTHOR Elizabeth Hanson 

46 REM ELBUG JAN/FEB 1984 

58 REM PROGRAM SUBJECT TO COPYRIGHT. 
60 : 

76 ON ERROR GOTO 289 

88 MODE6 

98 PRINTTAB(10)"Bad Program Lister." 
160 PRINTTAB (19) ;STRINGS(19,"=") 

118 VDU28,6,24,39,3 

126 INPUT'"Start Address",AS 

13@ @$=1:J%=255:A%=EVAL (AS) 

148 REPEAT: PRINT''" ";~A% 

15@ FORI%=0TOJ$:X3=AS?1$ » 
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160 IFX%=&@D PRINT'AS?(I%+1) *256+A$? ( 
I$+2) ;SPC1; : 18=13+3:GOTO1IG 

176 IFX%>&7F ANDX%<&FF PROCL:GOTO19¢ 
180 IFX%$>31PRINTCHRS (X%) ; ELSEPRINT X% 


260 IFT$? (K$+2) <40K3=K%+3ELSEKS=K3+2 

278 REPEAT: PRINTCHRS (T$?K$%) ; :K$=K3+1: 
UNT ILK$>=L% : ENDPROC 

286 ON ERROR OFF 

290 MODE 6 


196 NEXT 360 IF ERR<>17 REPORT: PRINT" at line 
200 A%=A%$+J%$+1 : VDU7:BS=GETS: UNTILFALS "*ERL 
E 318 END 
218 END 
220 : 
230 DEFPROCL: K$=-1:T3=&8071 This program is adapted from a_ version 
240 REPEAT: KS=K%+1 : Y$=T%?K% : UNTILY3=X for the BBC micro that was first 
SORKS>&300: L3=KS published in BEEBUG Vol.2 No.3. 
250 REPEAT: K8=K%-1 : Z$=T3$?2?K3: UNTILZ3>& 
7E ORK3<@ ee 


RETURN OF THE DIAMOND — A MAP 


Last month we published our very own adventure game called 'The 
Return of the Diamond'. For those of you who are still lost we now 
provide a map showing all the different locations. Please also read 
“the Editorial in this issue regarding the program for ‘The Return of 
the Diamond’. 


START | nur 


hammer 
PATH LANE FOREST 
gremlin lamp 
5 6 
DEAD END PASSAGE 
Pixie 


MAP OF RETURN OF THE DIAMOND 
a a I I I AEE DIDI ET 
Volume-1! Issue-3 
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DIVE BOMBER 
by N. Mallinson 


Just imagine the thrill as you 
speed your way to your target, your 
scarf billowing in the wind, with 
the smut from the spluttering engine 
clouding your vision through your 
goggles. Your mission is simple, but 
dangerous. It is to destroy as many 
targets as possible, whilst avoiding 
the flak from the guns on the 
ground. 


Well, it's not quite Biggles, but 
in this game you do have to destroy 
the various fuel and ammunition 
dumps , while avoiding the 
anti-aircraft guns. There are 106 
targets on each mission, after which 
you may land. If you have reached 
the required score for that mission, 
then you are sent out on a new 
sortie, but otherwise the game ends. 


You have three controls: 
:=up 
/=down 
Z=release bomb 
Bombs may only be released when the 
plane is in a dive. You will find that 
bombing attacks can be made much more 
accurately from a low-level approach, 
but then you~ will need to be 
nimble-fingered to avoid crashing; and 
the anti-aircraft barrages are a good 
deal more accurate when you are flying 
low. 
Good luck Biggles! 


108 REM PROGRAM DIVE BOMBER 

2@ REM AUTHOR N.MALLINSON 

3@ REM VERSION E1.4 

40 REM ELBUG JAN/FEB 1984 

5@ REM PROGRAM SUBJECT TO COPYRIGHT 
60: 
186 ON ERROR GOTO 2770 
11@ MODE 5 

126 VDU 23,1,0;4;9;9; 
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136 PROCtitle 

148 MODE 4 

158 VDU 19,0,4,0,9,0 

168 PROCinit 

176 PROCinstructions 

189 PROCnewgame 

199 REPEAT 

208 MODE 4 

218 VDU 19,6,4,4,6,98 

228 VDU 23,1,0;9;0;0;:CLS 
238 PROCnewrun 

24@ PRINTTAB(1,7)"PRESS SPACE BAR TO 


258 REPEAT: VDU 7:UNTIL GET=32 

269 PRINTTAB(1,7)"TAKE OFF !";SPC(14) 
:VDU 7 

276 REPEAT 

280 IF F%=0 GOTO 326 

296 IF ?(22775+320*F%) <>@ THEN PROCbo 
modhit:GOTO 32¢ 

366 FS=FS$+1 : IF? (22775+320*F%)<>@ THEN 
PROCbombhit:GOTO 326 

318 PRINTTAB (30,F%-1) ;SPC1;TAB(39,F%) 
7CHRS (227) » 
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326 IF X%=@ THEN L$=225 ELSE X%=X3-1: 
SOUND 6,-15,2,5:IF X%=0 THEN PRINTTAB(1 
17) ;SPC(24) : PRINTTAB (30, K%) ;CHRS (225) :G 
OTO 519 ELSE GOTO 516 

338 IF INKEY(-73) AND K%>6 THEN L%=22 
4:N3=K3-1 

340 IF INKEY(-105) THEN L%=226:NS=K%+ 


i 

350 IF ?(22775+320*N%)<>@ THEN PROCp1l 
anehit (N$) :GOTO 696 

360 PRINTTAB (30,K%) ;SPC1;TAB(3@,N%) ;C 
HRS (L$) :KS=N% 

378 SOUND 1,-15,32+40* (L3-224) ,5 

380 IF INKEY(-98) AND F%=@ AND L3=226 

THEN F%=K%+1 ELSE GOTO 410 

390 IF ?(22775+320*EF%)<>@ THEN PROCbo 
mohit:GOTO 418 

409 PRINTTAB (30,F%) ;CHRS (227) 

413 IF T%=@ AND US>@ THEN U3=U3+1 

420 IF U%>30 OR V%<7 THEN PRINTTAB(U% 
+V3) ; SPC1 3 TS=O: US=9 

430 IF T%=1 THEN PRINTTAB(U$,V%) ;SPC1 
:IF V%>6 AND U$<31 THEN US=U%3+1:V%=V$-1 
: PRINTTAB (US, V%) ; CHRS (2408) 

449 IF U%>@ AND T%=0 AND 27-U%+I3<=V3% 
-K%$ THEN T%$=1: PRINTTAB(U%,V$%) ;CHRS (240) 
:SOUND &11,-1,0,d8:SOUND &10,-15,4,8 

450 IF G$=232 AND U%$=@ AND B%>@ THEN 
U%=1: V$=H$-1: 1$=RND (5) 

460 IF D%$=0 AND B%>@ THEN BS=B%+1 

470 IF B$>3@ OR C8<7 THEN PRINTTAB(B% 
,C%) ;SPC1:Ds=0:BS=0 

480 IF D$=1 THEN PRINTTAB(B$,C%) ;SPC1 
:IF C$>6 AND B%<31 THEN B$=B%+1 :C3=C%-1 
: PRINTTAB (B%,C%) ; CHRS (240) 

490 IF B&>@ AND D%=0 AND 28-BS+E%<=C% 
-K%$+ (1+C$-K&) *(225-L%3) THEN D%=1:PRINTT 
AB (B%,C%) ;CHRS (248) sSOUND &19,-15,4,2 

540 IF G%=232 AND B%=0 THEN BS=1:C%=H 
$-1:E%= rte 

510 A%=O0:IF 2%<1 THEN G%=237:Z%=Z3-1: 
GOTO 614 

520 IF G3=235 THEN A$=A%-1 

530 IF H%>28 THEN G%=235:GOTO 596 


ST. 2275 sirergft to bomb eneny 
insts lations, and score: 


SUPPLY DUMP 
An GUN = 
COMMUMICATIONS CENTRE - J 
COMMAND CENTRE 


-& - 168 


If you reach or sarpess the required 
score Sou get another ru 


Successive runs become harder as 
gane speeds up,ground may be higher & 
required score increases. 


If you crash or 
ends. ¥ are shot down, gane 


AIRCRAFT CLIMB - ‘7¢ 
AIRCRAFT DIVE - *,~- 
RELEASE BOMB - *2° (when in dived 


HIGH SCORE TABLE <¥7H> 7 


546 IF H&<Y% THEN G$=234:A$=A$+1:GOTO 

596 

55@ R&=RND(127) :G$=229 

560 REPEAT: RS=R% DIV 2:G$=G$+1:UNTIL 
R3=0 

570 IF G%=235 THEN G%=G$-RND(4) DIV 4 

588 IF G$=234 THEN A$=A%+1 

590 H$=HS+A% 

606 IF G%<234 AND Z%>@ THEN Z%=Z%-1:P 
RINTTAB (31,5) ;Z3;SPC1 

618 CALL SCRLR 

620 PRINTTAB (@,H%) ;CHRS (G3) 

630 IF X%<>@ GOTO 680 

640 IF ?(22775+328*K%) <>@ THEN PROCp1l 
anehit (K%) :GOTO 6998 

650 IF D%=] THEN PRINTTAB(B%,C%) ;SPC] 
:IF C%>6 AND B%<31 THEN B$=B%+1 :C%=C%-1 
: PRINTTAB (B%,C%) ;CHRS (24@) 

660 IF T%=1 THEN PRINTTAB(U%,V%) ;SPC1 
:IF V$>6 AND U%<31 THEN U$=U%$+1:V%=V3-1 
: PRINTTAB (U$,V%) ;CHRS (248) 

670 IF J$>@ THEN J$=J%-1:IF J%<1 THEN 
cht=&1¢6 

688 FOR M$=1 TO DL3:NEXT 

698 UNTIL Z%<-40 

706 IF Z%>-5@ THEN PROClanding ELSE I 
F L3=242 THEN PRINTTAB(1,7)"SHOTDOWN !" 
ELSE PRINTTAB(1,7) "CRASHED !" 

71@ TIME=9:REPEAT UNTIL TIME>160 

720 *FX 15,@ 

730 UNTIL Z%=-58 

748 PROChighscores: PRINTTAB (3,M%) "ANO 
THER GAME (Y/N) ?" 

75@ VDU 7:IS=GETS:IF IS="Y" THEN CLS: 
GOTO 18@ 

768 IF IS<>"N" GOTO 753 

778 *FX15,@ 

788 MODE 6 

796 END 

80d: 

1608 DEF PROCbombhit 

1010 IF ?(22774+320*F%)=32 THEN PRINTT 
AB(3@0,F%) ;SPC1:GOTO 1696 

1020 IF ?(22774+320*F%)<1@@ THEN SOUND 
&186,-15,4,10:Jt=1:GOTO 1976 

1636 Q$=10*?(22769+320*F%) 

1040 WS=WS+O$: S$=S$+0% 

1658 PRINTTAB(7,3) ;S3;TAB(25, 3) ;W% 

1068 SOUND &1@,-15,4,26:J%=5 

18676 PRINTTAB(30,F%) ;CHRS (228) 

1888 ch$=&11 

1090 IF F%-1<>K% THEN PRINTTAB(30,F$%-1 
) ;SPC1 

1166 FS=0 

1118 ENDPROC 

1126: 

113@ DEF PROClanding 

1146 IF F%>@ THEN PRINTTAB(39,F%) ;SPC1 
:SOUND &11,0,G,1 

1158 PRINTTAB(1,7) "LANDING !" 

1160 REPEAT » 
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ReaD. RUN HIGH 
see se e 
TARGETS 67 


1170 IF K%<H%-1 THEN K%$=K%$+1: PRINTTAB( 
30,K%-1) ;SPC1;TAB(30,K%) ;CHRS (226) : SOUN 
D &16,-15,3,5 

1188 FOR M%=1 TO 2*DL%:NEXT 

1190 IF K=H$-1 THEN PRINTTAB(3@,K%) ;C 
HRS (243) 

1206 UNTIL K$=H3-1 
210 IF W8>=RS% THEN PRINTTAB(1,7) "MIS 
SION ACCOMPLISHED !" ELSE PRINTTAB (1,7) 
“FAILED REQUIRED SCORE.":Z%=-56 

20 S%=S%+1 00: PRINTTAB (7,3) ;S% 

238 FOR Mt=8 TO 10000:NEXT 
1248 ENDPROC 

1256: 

1266 DEF PROCinit 

270 DIM SET 400 

286 FOR PASS=0 TO 1 

1296 P%=SET 


1308 [ 

1316 OPT PASS*2 

320 .SET LDA #&38:STA &74:LDA #&72: 
STA &75\set start 

1336 LDX #39:LDA #0\clear base 
move store 
340 .clear STA SET+300,X:DEX 

1350 BPL clear:RTS\end when all 
done 

1360 .SCRLR STA SET+3@@0\store A% move 
13706 LDA &74:STA &7@:LDA &75:ST 
A &71\low base=start 

13890 LDX #39\index for 39 squar 
es 

1398 .sqr LDA #9:LDY #7\blank out sq 
uare 

1496 .blank STA(&7@) ,Y:DEY:BPL blank 
1410 LDA SET+300,X:STA SET+3@1, 
X\shift move up store 

1420 BEQ level:BMI up\detect mo 
ve 

1436 LDA &70:CLC:ADC #&38:STA & 
76\move down 

1446 LDA &71:ADC #1:STA &71:CLC 
:BCC ind 

1450 .up LDA &76:SEC:SBC #&48:STA & 


78\move up 


466 LDA &71:SBC #1:STA &71:CLC 

:BCC ind 

479 .level LDA &7@:SEC:SBC #8:STA &70 

back one square 

486 LDA &71:SBC #0:STA &71 . 
490 .ind DEX:BPL sethb:RTS\end if i 


Z 


ethb LDA &7@:CLC:ADC #8:STA &72 


e=low baset+8 
1516 LDA &71:ADC #0:STA &73 
520 CPX #38:BNE trans\far righ 
t square? 
530 LDA &72:STA &74:LDA &73:S1 


A &75:\yes-start=high base 
1540 .trans LDY #7\transfer data 
550 .byte LDA(&70) ,Y:STA(&72) ,Y:DEY: 
BPL byte 
1568 BMI sqr\go do next square 
1578 
580 NEXT 
598 CLS 

1686 VDU23,224,0,80,40,16,8,5,2,6:REM 
climb plane 

1618 VDU23,225,0,0,0,9,97,255,0,0: REM 
level plane 

1620 VDU23,226,4,2, 
dive plane 
638 VDU23,227,0,16,8,26,32,64,8,0: REM 
bomb 
640 VDU23,228,0,146,84,56,254,56,84,1 
46:REM expl 
658 VDU23,230,16,16,16,16,254,198, 254 
7255:REM cmd cen 
1660 VDU23,231,8,8,8,8,8,232,232,255:R 
EM cms cen 
670 VDU23,232,2,4,104,48,120,248,112, 
255:REM gun 
680 VDU23,233,9,2,102,102,182,102, 
7255:REM dump 

690 VDU23,234,1,2,4,8,16,32,64,128:RE 
M gnd down 

1780 VDU23,235,128,64,32,16,8,4,2,1:RE 
M gnd up 
1719 VDU23,236,0,9,9,G, 
nd level 
1728 VDU23,237,255,129,129,129,129,129 
,65,129:REM runway 

1730 VDU23,240,0,0,0,8,6,6,32,64:REM s 
hot 

1748 VDU23,241,8,8,8,8,8,8,0,0:REM tra 
il 

1758 VDU23,242,24,8,8,8,8,24,24,8:REM 
hit plane 

1760 VDU23,243,0,0,0,9,98,97,255, 72: REM 
taxi plane 

1776 REM * define envelopes * 

1786 ENVELOPE 1,130,5,3,5,50,68, 70,9, 
9,9,0,9 

1798 ENVELOPE 2,128,18,06,0,6,9,0,0,0,0 


79,9,0 » 


,46,80,32,64,0:REM 


70,0,255:REM g 
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1880 DIM HSC%(6) , NAMES (6) 

1818 FOR M3=@ TO 6:HSC%(M%) =G: NAMES (M3 
) =STRINGS (11 ,CHRS32) 

1826 ENDPROC 

1836: 

1846 DEF PROCnewgame 

1859 DL$=392:S%=G6:Y3=21 

1860 RS%=760: RNS=0 

1876 ENDPROC 

1888: 

1898 DEF PROCnewrun 

1989 FOR M%= TO 338 

19148 PRINTTAB (M%,5) ;CHRS (236) ; TAB (M3, 2 
G) ;CHRS (237) 

1928 NEXT 

1938 CALL SET 

1948 IF RS$<2500 THEN RS%=RS$+180 

195@ IF DL%>2 THEN DL$=DL%-30 

1966 RN%=RN3+1 

1976 IF Y%>1@ THEN Y%=Y%-1 

1989 G%=236:H$=20: K8=19:L$=243:NS=KS 
1999 F%=G:B3=9:D3=0: US=G0: TE=0 

2088 J%=G:ch8=&10:wW=G:Z3=1 00: X8=15 
2019 PRINTTAB (7,1) "GAME"; TAB(17,1) "REQ 
D.";TAB(25,1) "RUN"; TAB (32,1) "HIGH"; TAB ( 
@,3) “SCORE"; TAB (7,3) ;S%;TAB(17,3) ;RS3;T 
AB (25,3) ;W%; TAB (32,3) ;HSC%(@) 

2020 PRINTTAB(3,5)" RUN ";RN$;SPC1;TA 
B(21,5)" TARGETS ";Z%;SPC1 

2630 PRINTTAB (30,K%) ;CHRS (L%) 

2649 R&=RND(-TIME) 

2659 ENDPROC 

2060: 

2676 DEF PROCplanehit (k$) 

2080 2%=-5G 

2699 IF ?(22775+320*k%)<>64 THEN PRINT 
TAB (30,k%+225-L%) ;SPC1 ;TAB(30,k%) ;CHRS ( 
228) :SOUND &19,-15,6, 20: ENDPROC 

2198 SOUND &18,-15,6,26 

2118 L%=242 

2120 REPEAT 

2130 PRINTTAB(30,k%) ;CHRS (242) ;TAB(3@, 
k$-1) ;CHRS (241) 

2148 kS=k$+1 :pk$=? (22775+326*k3) 

2158 FOR M$=1 TO 1660:NEXT 

2160 UNTIL pk$<>@ AND pk$<>64 

2176 PRINTTAB (30,k%) ;CHRS (228) ; TAB (3G, 
k%-1) ;CHRS (241) 

2188 SOUND &19,3,6,40 

2198 ENDPROC 

2266: 

221% DEF PROCinstructions 

22286 CLS 

2230 PRINT'TAB(2)"Use your aircraft to 
bomb enemy";SPC(9);"installations, and 
score:" 

22498 PRINT'TAB(4) "SUPPLY DUMP";SPC(13) 
77CHRS(233);" 26" 

2250 PRINT'TAB(4)"AA GUN";SPC(18) ;CHRS 
(232);" 40" 


2266 PRINT'TAB(4) "COMMUNICATIONS CENTR 
E";SPC(3) ;CHRS$(231);"_ 86" 

«2276 PRINT'TAB(4) "COMMAND CENTRE"; SPC ( 
1G) ;CHRS (230) ;"_ 160" 

2280 PRINT'TAB(2)"I£f you reach or surp 
ass the required";SPC(4);"score, you wi 
ll get another run." 

2299 PRINT'TAB(2)"Successive runs beco 
me harder as the";SPC(4);"game speeds u 
p, and the ground may";SPC(6) ;"become h 
igher, with an increase in";SPC(6) ;"the 

required score." 

2306 PRINT'TAB(2)"If you crash or are 
shot down, the";SPC(6);"game ends." 

2319 PRINT'TAB(4) "AIRCRAFT CLIMB";SPC( 
3) AUS Fe 

2329 PRINT'TAB(4) "AIRCRAFT DIVE";SPC(4 
peesen 

2330 PRINT'TAB(4) "RELEASE BOMB";SPC(5) 
7"'Z' (when in dive)" 

2346 PRINT TAB(2,29);"Press the Space 
bar to continue :"; 

2358 REPEAT UNTIL GET=32 

2368 ENDPROC 

2376: 

2389 DEF PROCtitle 

2390 COLOUR 1 

2406 FOR Mt=6 TO 10 STEP 4 

2410 PRINTTAB(5,M%) ; STRINGS (11,CHRS (61 
)) :NEXT 

2428 COLOUR 2 

2438 PRINTTAB(5,8) ;"DIVE-BOMBER" 

2448 COLOUR 1 

2456 PRINTTAB(19,16) "by" 

2468 COLOUR 3 

2476 PRINTTAB(5,18)"N.Mallinson" 

2488 TIME=4:REPEAT UNTIL TIME>106 

2498 ENDPROC 

2506: 

2510 DEF PROCphstable 

2528 CLS 


2538 PRINTTAB(1@,4)"HIGH SCORE TABLE" 
2546 PRINTTAB (6,8) "No.";TAB(13,8) "NAME 
"; TAB (25,8) "SCORE" 
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2558 MS=-1 

2560 REPEAT 

2570 M&=M3+1 

2580 IF HSC%$(M%)=@8 THEN UNTIL TRUE=TRU 
E ELSE PRINTTAB(6,11+2*M%) ;M3+1;TAB(12, 
11+2*M%) ; NAMES (M3) ; TAB (25, 11+2*M%) ;HSC% 


ELSE M%=M3+1: UNTIL TRUE=TRUE 

2680 IF M$>5 THEN M%=9:ENDPROC 

26908 CLS 

2706 PRINTTAB(1,7)"YOU ARE ON THE HIGH 
SCORE TABLE !" 

2718 PRINTTAB(3,12)"PLEASE INPUT YOUR 


NAME"''TAB(5)"(max. 10 letters)" 
2720 REPEAT: VDU7: PRINTTAB (10,17) ;SPC(1 


(M3) UNTIL M3=5 
2598 IF HSC%(@)=6 THEN PRINTTAB(12,16) 


"NO SCORE YET !" 5) : INPUT TAB(1G,17)"? "NS:UNTIL LEN (NS) 
2600 IF Z%=6 THEN PRINTTAB(3,27) "INSTR <a 

UCTIONS (Y/N) ?" 2730 HSC%(M%) =S$: NAMES (M$) =NS 

2616 ENDPROC 2740 PROCphstable:M$=27 

2620: 2750 ENDPROC 

2638 DEF PROChighscores 2760: 

2640 M3=6 2778 ON ERROR OFF:MODE 6 

2650 REPEAT 2780 IF ERR<>17 REPORT:PRINT" at line 
2660 MS=M$-1 "SERL 

2676 IF S%>HSC%(M%) THEN HSC%(M$+1)=HS 2798 END 

C% (M&) : NAMES (M8+1) =NAMES (MB) : UNTIL M8=0 & 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


SOUND SUPPRESSION 
Sound output can suppressed by the command *FX21@,n where n is any non zero 
value. If n equals zero, then sound output is reinstated. 


LAST LINE NUMBER - Douglas Nunn 

To find out the highest line number in your current program, hold down both Shift 
and Control and press Escape twice. Release the Shift and Control keys, which will 
print up 'Escape at line xxx' where xxx is the last line number. 


\ 3 Snake is a very addictive, fast 


moving arcade game. The purpose of the 
game is to direct the snake around the 
screen, eating up the randomly placed 
objects. With every bite that it takes, 
the tail grows longer and the snake 
moves faster. Just to complicate 


This game is much more exciting than 
many games of a similar nature, and 
once played, proves to be surprisingly 
compulsive. 


things, there are also certain 
scattered obstacles which must be 
avoided. 


To even complete the first screen 
requires skill and concentration. 
Further frames use different shaped 
playing areas, which as well as adding 
variety, require much greater skill to 
complete. 


Snake costs £4.00 inc VAT. Please add 5¥p post & packing. 
Overseas orders: £5.50 inc post & packing - VAT not charged. 
Send order with membership number to: 
BEEBUGSOFT, P.O. Box 189, High Wycombe, Bucks HP11 2TD. & 
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All back issues will be kept in print 
(from November 1983). Send 9@p _ per 
issue PLUS an AS SAE to the 
subscriptions address. Back copies of 
BEEBUG are available to ORBIT members 
at this same price. This offer is for 
members only, so it is ESSENTIAL to 
quote your membership number with your 
order. Please note that the advertising 


SUBSCRIPTIONS 


Send all applications for membership, 
and subscription queries to the 
subscriptions address. 


MEMBERSHIP COSTS: 
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£9.98 for 1 year (1@ issues) 
European Membership £16 for 1 year. 
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Subscription and Software Address 


ELBUG 
PO BOX 189 
High Wycombe 
Bucks 
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IDEAS, HINTS & TIPS, PROGRAMS 
AND LONGER ARTICLES 


Substantial articles are particularly 
welcome and we will pay around £25 per 
page for these, but in this case please 


Editorial Address 


give us warning of anything that you ELBUG 
intend to write. PO Box 56 
St Albans 

We will also pay £10 for the best Herts 


Hint or Tip that we publish, and £5 to 
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address opposite. If you require a 
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membership number and enclose an SAE. 
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